Question

delphi 怎么实现 一个按钮 启动和暂停 隐藏和显示

按钮点一下就是启动，再点一下就是暂停，再点一次的话又是启动

Answer 1

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; bStaut:boolean=true;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginif bStaut=true thenbegin Button1.Caption:='停止'; bStaut:=false;endelsebegin Button1.Caption:='启动'; bStaut:=true;end;end;procedure TForm1.FormCreate(Sender: TObject);begin Button1.Caption:='启动';end;end.

Answer 2

另外的一种实现方法unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; b:boolean;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginbeginif b then begin Button1.Caption:='开始'; //写你开始执行代码 b:=false; endelse begin Button1.Caption:='暂停'; //写暂停要执行的代码 b:=True; end;end;end;end.

Answer 3

(1)设置一个标志,初始化标志第一状态值.(2)判断执行,执行完(第一/第二)个状态後,给标志变量赋(第二/第一)状态值.(3)可以用boolean变量作为标志判断; 也可以用控件的tag属性赋值判断.

Answer 4

if Button1.Tag = 0 then begin //Do Something Button1.Tag := 1;endelse if Button1.Tag = 1 then begin //Do Something Button1.Tag := 0;end;

Answer 5

每一个控件都有一个tag属性，可以用来添加标志，然后根据这个标志判断就可以了。