动态添加的控件如何写事件? 请举例说明。谢谢 解决方案 » 免费领取超大流量手机卡,每月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赋为一个自定义的过程 问个关于ide的问题。。 ACCESS数据库列举数据的顺序问题 提示可以向嵌入式发展 程序中加入'更新動態IP地址'的功能? 紧急求助 "EhLib 的函数集可以从 Text以及其内部格式的数据导入到DBGridEh的数据集中"具体是怎么操作的,有人知道嘛 时间的问题 请问Delphi中有无判断一个子串是否在一主串中的函数? 急,邮件发送的小问题!!! 一个指会付值的问题? 调用MS-WORD的问题? 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.