动态添加的控件如何写事件? 请举例说明。谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables;type TForm1 = class(TForm) DataSource1: TDataSource; Table1: TTable; Button1: TButton; procedure Button1Click(Sender: TObject); procedure btnclick(sender:Tobject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure Tform1.btnclick(sender:Tobject);begin showmessage('you click');end;procedure TForm1.Button1Click(Sender: TObject);var btn:Tbutton;begin btn:=Tbutton.Create(self); btn.Parent:=form1; btn.Top:=20; btn.Left:=20; btn.OnClick:=btnclick; btn.Show;end;end. 同意99guo(小兵) 的,把btn.OnClick赋为一个自定义的过程 在合并WAV文件时,遇到的一个奇怪问题。请做过的朋友进来看看。 delphi写dll 自己写的软件发布,大家多支持!!! 这是什么错误? 请教有关用ADOQUERY连接FOX数据库的问题。 复制目录的问题,急! 全文检索的实现 函数ShowNum 为什么delphi里只有这么点发言,以前的呢? com/dcom程序设计中的问题 delphi设计个人通讯录怎么做啊,求帮助 在IE的toolbar上加上快速链接按钮!!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables;type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure btnclick(sender:Tobject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure Tform1.btnclick(sender:Tobject);
begin
showmessage('you click');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
btn:Tbutton;
begin
btn:=Tbutton.Create(self);
btn.Parent:=form1;
btn.Top:=20;
btn.Left:=20;
btn.OnClick:=btnclick;
btn.Show;
end;end.