动态生成多个控件时,如何给每控件一个不同的事件
解决方案 »
- 关于EXCEL不能正常退出和怎样创建INI里面的SESSION,谢谢
- 按主键删除重复记录问题,在线请教,在线等,不吃饭?
- 关于fastreport的简单问题
- 各位大哥们,救命啊...怎样判断打印机是否缺纸啊..在网上查了,不行啊....
- 如何得到当前运行的文件的绝对目录?
- 小问题一个,请各位高手帮忙!
- 请问在fastreport中如何显示不同数据表的内容
- 菜鸟提一个简单问题:有两张表MainFrm and OptionFrm,单击表MainFrm 中的按钮button1如何打开表OptionFrm,同时关闭表MainFrm ?
- image显示图片。地址为空怎么判断
- delphi中怎样改变子窗体的默认排列方式呢?
- 请问如何处理窗体的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.