Fórum Enter com função de TAB #207403

No evento ON KEYPRESS

Procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := 0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;

Use esta rotina que já foi usada e aprovada.

não funcionou não

Esse código vai no evento [i:1a39bf6057]OnKeyPress[/i:1a39bf6057] do Form, e a propriedade [i:1a39bf6057]KeyPreview[/i:1a39bf6057] tem que estar setada para [i:1a39bf6057]true[/i:1a39bf6057]. Mas você saberia disso se tivesse [b:1a39bf6057]PESQUISADO[/b:1a39bf6057] antes a resposta para essa pergunta que, com certeza, deve ser a #1 em repetições aqui no fórum. E falo assim pq vc não só não pesquisou, como ainda não soube nem agradecer a ajuda da pessoa que tentou te dar uma força, só respondendo com o ´não funcionou não´.

De nada.

dEUS.

tente no Onkeydown

No onCreate do formulario principal da tua aplicacao coloque o seguinte:
//////////////////////////////////////////////////////////////////

procedure TfrPrincipal.FormCreate(Sender: TObject);
begin
Application.OnMessage := MudarComEnter;
end;

/////////////////////////////////////////////////////////////////
Ai eh soh criar no formulario principal a funcao MudarComEnter
//////////////////////////////////////////////////////////////////

procedure TfrPrincipal.MudarComEnter(var Msg: TMsg; var Handled: Boolean);
begin
If not ((Screen.ActiveControl is TCustomMemo) or
(Screen.ActiveControl is TCustomGrid) or
(Screen.ActiveControl is TBitBtn) or
(Screen.ActiveForm.ClassName = ´TMessageForm´)) then
begin
If Msg.message = WM_KEYDOWN then
begin
Case Msg.wParam of
VK_RETURN: begin
Msg.wParam := 0;

Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0);
end;
end;
end;
end;
end;

Falow!!