动态生成多个控件时,如何给每控件一个不同的事件
解决方案 »
- 如何调用Oracle中的Sequences
- 如何将数据库处理和业务处理分离
- 用软件能看到access密码,但输入总是提示密码错误。
- 数据库设计问题
- delphi5中,SMTP发邮件如何验证
- 如何利用数据库里面的数据画图?
- 求SysTools For D6的控件组,那位仁兄有给我发一个吧,或者给我一个URL也好阿!
- 100分请教!高手请进!怎样把windows的鼠标变成自己编辑的鼠标资源的鼠标呢?????????
- Dll中的函数重载处理
- delphi xe7 內建 fastreport 导出PDF加密的问题
- 请问如何处理窗体的WM_COPYDATA消息以及用户自定义的消息?
- 出库和入库的触发器,高手进来看看
btnclk:TNotifyEvent;procedure TForm1.btnclick(Sender: TObject);
begin
...
end;procedure TForm1.Button1Click(Sender: TObject);
var
btn:Tbutton;
begin
btn:=Tbutton.Create(self);
....
btn.OnClick:=btnclick;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure ButtonClick1(Sender: TObject);//
procedure ButtonClick2(Sender: TObject);//
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
btn:TButton;
begin
btn:=TButton.Create(Owner);
btn.OnClick:=ButtonClick1;// or btn.OnClick:=ButtonClick2;
end;procedure TForm1.ButtonClick1(Sender: TObject);
begin
//
end;procedure TForm1.ButtonClick2(Sender: TObject);
begin
//
end;end.