动态创建事件找p3项目管理软件下载

记账软件版1楼: 大家好我想请教一个问题：Delphi中动态创建的控件如何使用他的事件

2楼: 你的打算怎么使用事件是什么事件如速达软件官网

3楼: 我动态创建了几个按钮。我想点击不同的按钮。。产生相应的事件

4楼: var
btn: TButton;
begin
btn := TButton.Create(Panel1);
btn.Parent := Panel1;
btn.OnClick := btnClick;
end;

5楼: 我的QQ号是42057288 如果愿意可以加我。比较方便。

6楼: 我动态创建了几个按钮。我想点击不同的按钮。。产生相应的事件

太抽象了吧？

记账软件版7楼: procedure TForm1.buttonclick2(Sender: TObject);
begin
showmessage(＇＇123＇＇);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
button:TButton;
begin
button:=TButton.Create(self);
button.Visible:=true;
button.Parent:=form1;
button.OnClick:=buttonclick2;
end;

8楼: type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);

procedure abclick(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.abclick(Sender: TObject);
begin
ShowMessage(TButton(Sender).Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
aBtn : TButton;
begin
aBtn := TButton.Create(self);
aBtn.Parent := Form1;
aBtn.Caption := ＇＇test＇＇;
aBtn.OnClick := abclick;
end;

9楼: 如果是数组呢。如何调用事件呢

10楼: procedure TForm1.myClick(Sender : TObject);
begin
{* insert your code *}
end;

procedure TForm1.CreateButton;
var
btn ; TButton;
begin
btn := TButton.Create(Self);
btn.parent := Self;
btn.Onclick := myClick;
end;

11楼: procedure TForm1.Button1Click(Sender: TObject);
var
aBtn : array of TButton;
i: Integer;
begin
SetLength(aBtn ,4);
for i := Low(aBtn) to High(aBtn) do
begin
aBtn[i] := TButton.Create(self);
aBtn[i].Parent := Form1;
aBtn[i].Caption := ＇＇test＇＇;
aBtn[i].OnClick := abclick;
end;
end;

12楼: 我的意思是说：假如我创建了10个按钮。
var
i:Integer;
l_i:array[0..10] of TListBox ;
begin
i:=0;
for i:=0 to 10 do
begin
b_i[i]:=TButton.Create(nil);
b_i[i].Parent:=Form1;
b_i[i].Left:=i*60;
b_i[i].Top:=20;
b_i[i].Width:=50;
b_i[i].Height:=20;
b_i[i].Name:=＇＇b_＇＇+IntToStr(i);
b_i[i].Caption:=＇＇b_＇＇+IntToStr(i);
我想为这创建的10个按钮创建事件然后再使用事件如p3项目管理软件下载