在一个TFrame里如何用回车键代替TAB键?(50分)

L

linghe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-19

• #1

在一个TForm里有EDIT1,EDIT2,如果要用回车键代替TAB键,可以在EDIT的KEYPRESS事件中这么写:
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
key := #0;
self.Perform(CM_DialogKey, VK_TAB, 0);
end;
end;
但是在一个TFrame中是如何实现的呢?

 

J

japhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-19

• #2

你可以把你的这段代码
if Key = #13 then
begin
key := #0;
self.Perform(CM_DialogKey, VK_TAB, 0);
end;
放到TFrame依附的窗体的KeyPress事件中，记得设置窗体的KeyPreview := TRUE;

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-19

• #3

二楼正确的

 

L

linghe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-19

• #4

谢了。