有多个button如何使焦点定在某一个button上(50分)

  • 主题发起人 tianzhegs
  • 开始时间
T

tianzhegs

Unregistered / Unconfirmed
GUEST, unregistred user!
有多个button如何使焦点定在某一个button上,我只要按空格或回车就可以是那个button
按下
 
button.SetFocus
 
什么意思?如果是一开始就让他得到焦点,就设Default := true;
如果是别的按钮也不能按空格或者回车,就在Form的OnShortCut中写事件。
 
你可以在代码中用Button.SetFocus将焦点设置到指定的Button上
 
tbutton.default := true;
 
執行某個事件完成后

button.SetFocus﹔
 
谢谢各位
 
如果有多个按钮:
1、窗口启动
窗口.activecontrol:=button1;
2、程序中
button.setfocus;
 
Form1.KeyPreview := True;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_SPACE) or (Key = VK_RETURN) then
Button1.Click;
end;
 
多人接受答案了。
 
顶部