先将FORM 的KEYPREVIEW 设置成TRUE procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then Button1Click(sender); end;
请教: 是不是 BitBtn1 没有上面的功能啊? 谢谢!
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then showmessage('llllllllll'); // BitBtn1Click(sender);end;为什么我按 enter 没有反映呢?谢谢!
如果我希望 单击 enter 键 ,就等于 单击 这个 button1 ,那要怎么办呢?谢谢!
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Button1Click(sender);
end;
是不是 BitBtn1 没有上面的功能啊?
谢谢!
begin if key=#13 then
showmessage('llllllllll');
// BitBtn1Click(sender);end;为什么我按 enter 没有反映呢?谢谢!
先将FORM 的KEYPREVIEW 设置成TRUE//////////////你设了?
可能是因为有一个按钮,并且这个按钮成了窗体中的默认按钮,所以按下Enter后,就等于按下了这个按钮。