Fórum funcao para limpar todos os DBedits de uma so vez #183526

A função para trocar Enter deve ser colocada no evento onkeypress do formulário:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then Begin
Key := 0;
Perform( WM_NEXTDLGCTL, 0, 0) ;
end; end;

Funciona em qualquer windows e vc precisa configurar a propriedade keypreview do form para true.

DBEdit reflete a informação que vem da tabela, portanto não se limpa o DBEdit e sim a informação(registro) da tabela.

Uma sugestão: Faça uma pesquisa sobre o tópico que vc rem dúvida. Esta questão do enter tem inumeras respostas aqui no forum. Vc ganha tempo e evita a repetição de questões.

//Limpa todos os DBEdits
procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
begin
for I := ComponentCount - 1 downto 0 do
begin
if Components[I] is TDBEdit then TDBEdit(FindComponent(Components[I].Name)).CLear;
end;
end;