Fazer ENTER funcionar como TAB

Seta para cima

evento keydown
procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 38 then Perform(Wm_NextDlgCtl,-1,0);
end;

Assim e melhor:

Em Form.Create coloque uma chamada para uma rotina que vai avaliar
a tecla precionada

procedure Form1.FormCreate(Sender: TObject);
begin
Application.OnMessage := ProcessaMsg;

.....
end;

procedure Form1.ProcessaMsg(var Msg: TMsg; var Handled: Boolean);
begin // ATENCAO: necessita Messages no use
if not (ActiveControl is TRichEdit) then // não é richedit
if not (ActiveControl is TDBRichEdit) then // nem dbRichedit
if Not (ActiveControl is TDBMemo) then // nem tMemo entao
If Msg.Message = WM_KEYDOWN then // transforma return em TAB
if Msg.wParam = VK_Return then Keybd_event(VK_TAB,0,0,0);
end;

OK? :shock: