panel 的问题(100分)

1

13694132257

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #1

我把一个form 放到主form 的panel上，结果form上的edit失去焦点,当我把from上的
borderstyle：=bsnone时，可以获得焦点，但我写在 form 的keypress下的 if key=#13 then perform(WM_NEXTDLGCTL,0,0); ‘即回车键获得下一个编辑框的焦点的不 好用‘，麻烦帮我看一下

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #2

if Key=#13 then
begin
SelectNext(TWinControl(Sender), True, True);
Key:=#0
end

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #3

设置你的主Form的KeyPreview:=True，同时在你的主form的OnKeyDown事件中写：
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key=VK_Return then
begin
if (ActiveControl=nil) then Exit;
SelectNext(ActiveControl,true,true);
end;
end;

 

1

13694132257

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #4

大家帮帮忙呀

 

1

13694132257

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #5

真没有人会呀

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #6

panel.tabstop := false;

 

C

czcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #7

我把一个form 放到主form 的panel上
怎么放的.用代码吗?我不知道,谁可以告诉我!

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #8

SelectNext(screen.ActiveControl, true, true);
Key := #0;
主form

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #9

上面的人好像都说对了吧。 你把两个form的KeyPreview都设为True

 

1

13694132257

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-08

• #10

多人接受答案了。