给动态创建的组件加事件 怎样为动态创建的组件加入事件?多个类似的组件共用一个事件。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 先写一个 Procedure LabelOnClick(Sender:TObject);放到某个事先设计好的类的,如:Form然后在Label1 := TLabel.Create(NIL);Label1.OnClick := LabelOnClick;然后显示它,....就行了。 kiboisme(还是铁棒.....针) 说得对,先建一个procedure,然后用***.click:=YouProcedure给他就OK! procedure TForm1.pp(Sender: TObject);begin //写你要处理的代码.end;//以下是动态创建一个TBitBtnprocedure TForm1.BitBtn2Click(Sender: TObject);var b : TBitBtn;begin b := TBitBtn.Create(nil); b.Name := 'dd'; b.Parent := Form1; //......设置其它属性 b.OnClick := pp;//指向pp过程end; unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure OnClick(Sender :TObject); end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.OnClick(Sender :TObject);begin ShowMessage('OK');end;procedure TForm1.FormCreate(Sender: TObject);var Button :TButton;begin Button :=TButton.Create(Self); Button.Parent :=Self; Button.Left :=100; Button.Top :=100; Button.OnClick :=OnClick;end;end. 转让几本闲置的delphi及相关的书,北京 Dephi共享自己写的bpl.再发布的时候如何才能不须要系统的bpl? delphi+软件狗软件逆向工程求助 请教在DELPHI中怎么定义VC++的TIME_T类型??谢谢!! 关于IC卡系统 对时间字段进行查询,用filter和where有差别吗? 想高手请教个小问题! 如何实现我的要求: 如何查看控件的源代码? 多个文件保存和读取的问题(高分100) 有谁知道数据连接*.udl和adoconnection的连接? 再问一下!PB能做的为什么DELPHI没
然后在
Label1 := TLabel.Create(NIL);
Label1.OnClick := LabelOnClick;
然后显示它,....
就行了。
procedure TForm1.pp(Sender: TObject);
begin
//写你要处理的代码.
end;//以下是动态创建一个TBitBtn
procedure TForm1.BitBtn2Click(Sender: TObject);
var
b : TBitBtn;
begin
b := TBitBtn.Create(nil);
b.Name := 'dd';
b.Parent := Form1;
//......设置其它属性
b.OnClick := pp;//指向pp过程
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure OnClick(Sender :TObject);
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.OnClick(Sender :TObject);
begin
ShowMessage('OK');
end;procedure TForm1.FormCreate(Sender: TObject);
var
Button :TButton;
begin
Button :=TButton.Create(Self);
Button.Parent :=Self;
Button.Left :=100;
Button.Top :=100;
Button.OnClick :=OnClick;
end;end.