Ir para conteúdo
Fórum Script Brasil
  • 0

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


Adno Carvalho

Pergunta

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!

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0
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.

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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?

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...