zoukankan      html  css  js  c++  java
  • dlephi程序流程一(if then)

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        stredit: TEdit;
        btn1: TButton;
        procedure btn1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure streditKeyPress(Sender: TObject; var Key: Char);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    implementation
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject); //窗体创建完毕
    begin
         SetWindowLong(stredit.Handle,
         GWL_STYLE,
         GetWindowLong(stredit.Handle, GWL_STYLE) or ES_CENTER);
         stredit.Refresh;    //子类化编辑框 让数字在中间
    end;
    
    procedure TForm1.streditKeyPress(Sender: TObject; var Key: Char);
    //编辑框输入事件
    //添加事件 组件事件在EVENTS面版里在事件名字后面的空白处双击2下就可以添加
    begin
          //if not(key in['0'..'9',#8])then
          //key:=#0;    //限制只能输入数字 退格键   方法一
          if  (not (key in['0'..'9'])) and (Key <>#8) then
          key:=#0;      //限制只能输入数字  退格键  方法二
    end;
    
    procedure TForm1.btn1Click(Sender: TObject); //按钮单击事件
    var s:Integer;
    begin
    
          s:=StrToInt(stredit.Text);
          ShowMessage(stredit.Text);
          if (s=100) or (s=10000) then
          MessageBoxa(0,'输入了100或输入了1000','shellcode',0);
    end;
    end.
  • 相关阅读:
    JQuery.Ajax()的data参数类型
    通过拖动表格行进行行排序
    jquery animate()背景色渐变的处理
    JavaScript代码不执行
    Java性能调优笔记
    tika提取pdf信息异常
    Solr字段配置错误
    Oracle查询字符集
    zookeeper中Watcher和Notifications
    zookeeper适用场景:分布式锁实现
  • 原文地址:https://www.cnblogs.com/qq32175822/p/3142015.html
Copyright © 2011-2022 走看看