How do I use Enter key i/o Tab to traverse between textboxes in a form

[Goodman H__]

Greetings to everybody!

In Delphi I can write code in form's keyPress event(set form's keypreview:=true):

Code: [Select]

if key=#13 then
perform(wm_nextDlgCtrl,0,0);
end;
How can I do the same in FP?And what's the cross-platform solution also?

Thanks a lot for your help in advance.

Regards,
Sam

[theo]

Code: [Select]

uses LCLType;

procedure TForm1.FormKeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
begin
  if Key=VK_Return then SelectNext(ActiveControl,True,True);
end;


[zeljko]

Greetings to everybody!

In Delphi I can write code in form's keyPress event(set form's keypreview:=true):

Code: [Select]

if key=#13 then
perform(wm_nextDlgCtrl,0,0);
end;
How can I do the same in FP?And what's the cross-platform solution also?

if Key = #13 then
  SelectNext(ActiveControl, True, True)

Regards,
Sam

[Goodman H__]

Code: [Select]

uses LCLType;

procedure TForm1.FormKeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
begin
  if Key=VK_Return then SelectNext(ActiveControl,True,True);
end;


Thank you.It works.

But there is a little difference.Based on the above code,all controls can traverse by enter key with no problem,but when nagivate to a button,press enter does not fire the button's event,just go to the next control.If I want to fire the button's event,I need to press blank key.Not the same in delphi though,but it works.