如何SendMessage(GetParentForm(Self).Handle, WM_NEXTDLGCTL, 0, 0)(50分)

X

x_ws

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #1

请问与SendMessage(GetParentForm(Self).Handle, WM_NEXTDLGCTL, 0, 0)
相反的操作是?
此操作是使光标跳到下一个TAB,那么如何跳到上一个TAB呢

 

C

cbtea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #2

SendMessage(GetParentForm(Self).Handle, WM_NEXTDLGCTL, 0, 1)

 

X

x_ws

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #3

cbtea兄, SendMessage(GetParentForm(Self).Handle, WM_NEXTDLGCTL, 0, 1)不行啊.

 

R

rookie_ron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-18

• #4

可以用
FindNextControl(Sender as TWinContorl, true, false, false).SetFocus

 

D

delphi999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-18

• #5

SendMessage(GetParentForm(Self).Handle, WM_NEXTDLGCTL, 1, 0)

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-18

• #6

var
WinControl: TWinControl;
begin
WinControl := FindNextControl(ActiveControl, True, True, False);//Foreward
WinControl := FindNextControl(ActiveControl, False, True, False);//Backword
if Assigned(WinControl) and WinControl.CanFocus then
WinControl.SetFocus;
end;

SendMessage(GetParentForm(Self).Handle, WM_NEXTDLGCTL, 0, 0);//Foreward
SendMessage(GetParentForm(Self).Handle, WM_NEXTDLGCTL, 1, 0);//Backward

 

X

x_ws

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #7

多人接受答案了。