我想在onclick事件中调用其它事件,怎么调 procedure TForm1.Button1Click(Sender: TObject);begin button2.Clickend; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Delphi中控件的任何事件,不过是一个属性,他指向你定义的函数,或方法,项调用任何事件,只要传递正确的参数,即可随时随地调用比如procedure TForm1.Button1Click(Sender: TObject);begin button2.Onclik(button2);//等同于鼠标点极了button2 Edit1.OnKeyPress(Button2,#13);//等同于在Edit1中暗下了回车 end; songdan2002(宋)的方法我没有试过,看代码可以实现.给他分吧. 同意songdan2002(宋) (2001-8-9 20:56:12) onclick是这样就可以了,不过在其它事件中有的参数很多我就不知道该怎么使用了 如果你想让onClick事件直接调用其它控件的事件,只需在onClick事件的下拉列表中选择要调用事件就行了。如果要在onClick的写好的事件中调用,就用控件名.事件名(self);调用 还可以用PostMessage()或者SendMessage(). 如果是本窗体的事件则: procedure TForm1.Button1Click(Sender: TObject); begin button2.Click(sender);end; 如果是另外一个窗体的时间则:procedure TForm1.Button1Click(Sender: TObject); begin Tform2.button2.Click(sender);end; 如果是本窗体的事件则: procedure TForm1.Button1Click(Sender: TObject); begin button2.Click(button2);end; 如果是另外一个窗体的时间则:procedure TForm1.Button1Click(Sender: TObject); begin Tform2.button2.Click(button2);end; 求打installshidld fo d7包软件 关于DELPHI 读XML显示的问题 怎么屏蔽Edit1控件的粘贴功能(即不响应Ctrl+V) 急!!! 我写了一个c/s的聊天程序,用了多线程,客户端老是死机,我怎样发到网上让你们帮我调试一下 想做一个在程序退出后自动运行的后台监视程序? 使用XMLTransformProvider 控件的問題, 急救!!!!!! 怎样使用ado在数据库中增加一条记录? 扩展名为.mov的东西用什么放? 救命呀!我要死了!:( 如何取得当前系统的字体列表 SOS,....., 有关PageControl的问题?
项调用任何事件,只要传递正确的参数,即可随时随地调用
比如
procedure TForm1.Button1Click(Sender: TObject);
begin
button2.Onclik(button2);//等同于鼠标点极了button2
Edit1.OnKeyPress(Button2,#13);//等同于在Edit1中暗下了回车
end;
如果要在onClick的写好的事件中调用,就用
控件名.事件名(self);
调用
procedure TForm1.Button1Click(Sender: TObject);
begin
button2.Click(sender);
end;
如果是另外一个窗体的时间则:
procedure TForm1.Button1Click(Sender: TObject);
begin
Tform2.button2.Click(sender);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
button2.Click(button2);
end;
如果是另外一个窗体的时间则:
procedure TForm1.Button1Click(Sender: TObject);
begin
Tform2.button2.Click(button2);
end;