求助!怎么触发自定义事件? 如题:单元中有一全局变量,欲做到当其值变化时激发某事件 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public procedure ss; { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}vars:boolean;procedure Tform1.ss;beginshowmessage('ss');end;procedure TForm1.Button1Click(Sender: TObject);beginif s then ss;end;procedure TForm1.Button2Click(Sender: TObject);begins:=true;end;end. zyly2(漂流) 兄:你误会了 我的意思是如何自定义截获这个参数被改变的消息并触发某事件 win7中ADO连接数据库的问题 关于应用程序启动保护的问题... 看Delphi板中.谁坚持到最后..不间断的up这贴.计时.. 关于数据显示格式的转换 如何用Quick Report 实现NT/2000/XP下的票据打印? 关于一般文本编辑器的 Ctrl-Z 操作的编程。 请hjd_cw接200分,谢谢. 谁来教我用fastreport??!! 难道真的没有Delphi和数据库的高手吗?分数赠英雄! SQL语句中,如果一个字符串类型的数据(如VarChar(a)),实现a<300,应该怎么做? 我的左眼遇到鬼了。 编写一个多文档编辑器时出现的问题,帮忙看看?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject); private
{ Private declarations }
public
procedure ss;
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
var
s:boolean;
procedure Tform1.ss;
begin
showmessage('ss');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if s then
ss;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
s:=true;
end;end.
我的意思是如何自定义截获这个参数被改变的消息并触发某事件