2451
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
yoisyois 2003-05-16
或者在窗体创建的时候
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.onClick := Button2Click;//不要加（sender）,会出错。
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.onClick := Button2Click;//不要加（sender）,会出错。
end;
lsk2000 2003-05-16
多谢各位，只是对“要不直接在事件列表中选择上2的就行”不是很明了。
yoisyois 2003-05-16
to linzhisong(無聊)
你好~~~
^_^
你好~~~
^_^
yoisyois 2003-05-16
procedure TForm1.button1click(sender: TObject);
begin
Button2Click(sender);
end;
begin
Button2Click(sender);
end;
cow8063 2003-05-16
buttonClick2(sender);就行，
要不直接在事件列表中选择上2的就行
要不直接在事件列表中选择上2的就行
linzhisong 2003-05-16
^_^，看到你了！yoic(我是一棵菠菜，菜，菜，菜，菜，菜，菜)
linzhisong 2003-05-16
procedure from1.button1onclick(sender);
begin
button2.click;
end;
begin
button2.click;
end;
yoisyois 2003-05-16
procedure button1click(sender: TObject);
begin
Button2Click(sender);
end;
begin
Button2Click(sender);
end;
