Flat式按钮获得焦点时为何不能按回车选择，只能用空格键？如何解决？(100分)

N

ningy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #1

我在编一个平面式界面程序，试过很多Flat式按钮（要能获焦点），但这些按钮获得焦点
后，只能用空格键选择，按Enter键无反应，如何解决？请高手指点！

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-23

• #2

设置 Form1.KeyPreview:=true;

在OnkeyUp事件中进行处理：
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (activecontrol=button1) and (key=13)
then key:=32;
end;

 

N

ningy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #3

to jsxjd:感谢您的回答，问题是在一个工程中有许多窗口有这样的按钮，如何才能保证
代码最大限度简洁？

 

轻

轻松虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #4

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Form1.ActiveControl is TButton) and (key=13)
then key:=32;
end;

 

N

ningy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-01

• #5

接受答案，每人50分表示谢意！

 

N

ningy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-01

• #6

多人接受答案了。