2,497
社区成员
发帖
与我相关
我的任务
分享这个又怎样的解决
我想调用button1键onclick的事件但是却行不通
procedure Tlandingfrm.landedt2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
self.landbtn1Click();//这个过程怎样的用啊，这是Tbutton组件
end;
landbtn1click的过程是进入下一个窗体，同时退出这个窗体，
在线急盼
procedure Tlandingfrm.landedt2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
self.landbtn1Click();//这个过程怎样的用啊，这是Tbutton组件
end;
landbtn1click的过程是进入下一个窗体，同时退出这个窗体，
在线急盼
...全文
请发表友善的回复…
发表回复
树上猪 2006-01-09
- 打赏
- 举报
多谢！
forestry98 2006-01-09
- 打赏
- 举报
self.landbtn1Click(nil);//
