如何在按钮事件中调用另一个非按钮事件? 如果你的edit1的keypress事件处理程序叫TForm1.Edit1KeyPress(Sender ,Key)的化,可以这样调用了Edit1KeyPress(Edit1 ,#13);就是按下了Enter键了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin showmessage('enter');end;procedure TForm1.Button2Click(Sender: TObject);var k: char;begin k := 'a'; Edit1KeyPress(Sender, k);end; 小满,进京 救急!access中如何对表进行删除和重命名? 急!! 高分求助! 一个MDI问题 请问哪里有VFP的汉化补丁下载,谢谢 delphi编程时,数据库为oracle,当在客户端为8.16版本上编译通过但到客户端是8.17却不行,为什么啊? FastReport的问题 麻烦各位检查一下,为什么我一个劲鼠标还会出现鼠标键盘不动的提示!(急!) 请各位帮我分析一下原因???在线 向大家问一个有关消息的问题, ..\应该是表示当前目录,但是把同样好使的程序(程序中用到了..\)拷到另外一个目录下却不好使了呢? 钱币符问题 再问一个ServerName的问题
begin
showmessage('enter');
end;procedure TForm1.Button2Click(Sender: TObject);
var
k: char;
begin
k := 'a';
Edit1KeyPress(Sender, k);
end;