Buscar

DBMemo1 (Enter)

Código

Supondo que para mudar de campo pressione Enter, então você coloca o componente DBMemo1
e ao pressionar Enter o foco muda para outro controle, ao invés de "descer" para a próxima linha. Faça o seguinte:

WantReturns := True;
WantTabs    := False; //porque você irá usa-lo para mudar o foco para o próximo campo

procedure TForm1.DBMemo1Enter(Sender: TObject);
begin
  Form1.KeyPreview := False;
end;

procedure TForm1.DBMemo1Exit(Sender: TObject);
begin
  Form1.KeyPreview := True;
end;

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Componentes
Adicionada dia: 26/06/09
Por: Cesar Novaes
Visualizada: 3125 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009