Nomadic дает следующий пример:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If Key=#13 Then Begin Key:=#0; SelectNext(Sender as TWinControl, true, true); { или Perform(WM_NEXTDLGCTL, 0, 0); } End; end; |
А кстати как у тебя с Tab order ... список правильно выстроен... [001714]