Passar de um campo para outro no formulario com a Tecla ENTER

[Adno Carvalho]

Boa noite amigos!

Gostaria de uma ajuda, agora preciso saber como programar o campo do meu formulário para quando eu terminar de preencher o campo, clicar enter e passar para o proximo campo!

Desde já agradeço!

Desculpa a ignorância, estou me esforçando para aprender mais com o pouco de tempo que tenho! Valeu!

[MagoDanger]

Olá amigo!

Clica sobre o campo, Vai na aba Events, dê 2 cliques no OnKeyPress

if key=#13 then Edit2.SetFocus;

[Adno Carvalho]

Olá amigo!

Clica sobre o campo, Vai na aba Events, dê 2 cliques no OnKeyPress

if key=#13 then Edit2.SetFocus;

Brigado pela ajuda amigo, mas não deu certo deu um erro!

o codigo do DBEdit que criei está assim:

procedure TForm2.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then DBEdit2.SetFocus;

end;

end.

[Jhonas]

preciso saber como programar o campo do meu formulário para quando eu terminar de preencher o campo, clicar enter e passar para o proximo campo!

voce precisa usar Tab por Enter ... veja no forum

http://scriptbrasil.com.br/forum/index.php...e=tab+por+enter

abraço

[Adno Carvalho]

Não encontrei tópico relacionado a minha duvida alem do meu! Mas desde já agradeço!

[Jhonas]

em um daqueles tópicos voce iria achar um link para isso:

Criar na seção type da sua unit principal a seguinte procedure:

procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);

digite CTRL+SHIT+C pra implementar a mesma.

Em sua implementação codificar:

procedure TfrmPrincipal.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
   if Msg.Message = WM_KEYDOWN then
      if Msg.wParam = VK_RETURN then Keybd_event(VK_TAB, 0, 0, 0);
end;

No evento onCreate do form principal codificar o seguinte:

procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
   Application.OnMessage := DoEnterAsTab;
end;

Pronto daqui para frente você pode trocar a tecla tab pelo enter em todos os seus formulários, e mudará de campo com a tecla < Enter >.

OBS: quando peço para pesquisar é porque sei que voce vai achar o que esta querendo em um dos posts.. ok ?

abraço

[Adno Carvalho]

Valeu, brigado pela dica! Vou tentar desta forma!

Boa noite!

[Adno Carvalho]

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, StdCtrls, Mask, DBCtrls, ADODB, ExtCtrls;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOTable1: TADOTable;

DataSource1: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

end.

COMO FICARIA COM ESSA UNIT?

[Jhonas]

Voce precisa ler mais a respeito do Delphi... procure por apostilas no forum

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, StdCtrls, Mask, DBCtrls, ADODB, ExtCtrls;

type
   TForm1 = class(TForm)
   ADOConnection1: TADOConnection;
   Label1: TLabel;
   DBEdit1: TDBEdit;
   Label2: TLabel;
   Label3: TLabel;
   DBEdit3: TDBEdit;
   Label4: TLabel;
   DBEdit4: TDBEdit;
   Label5: TLabel;
   DBEdit5: TDBEdit;
   Label6: TLabel;
   DBEdit6: TDBEdit;
   Label7: TLabel;
   DBEdit7: TDBEdit;
   Label8: TLabel;
   DBEdit8: TDBEdit;
   DBGrid1: TDBGrid;
   DBNavigator1: TDBNavigator;
   ADOTable1: TADOTable;
   DataSource1: TDataSource;
   procedure FormCreate(Sender: TObject);
   procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean);
begin
   if Msg.Message = WM_KEYDOWN then
      if Msg.wParam = VK_RETURN then Keybd_event(VK_TAB, 0, 0, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMessage := DoEnterAsTab;
end;

end.

abraço