Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
silviolucio Novato

Registrado: Segunda-Feira, 13 de Junho de 2011 Mensagens: 65
|
Enviada: Sex Jun 17, 2011 5:33 pm Assunto: limpar a tela |
|
|
ola eu tenho uma tela de cadastro de clientes depois que o botao gravar
clicado executa ( tableclientes.post; ) eu queria saber como faço
pra limpar os campos de novo e começar do primeiro dbedit ....?
por favor alguem pode me ajudar.... |
|
Voltar ao Topo |
|
 |
Ghost_Rider Colaborador

Registrado: Segunda-Feira, 6 de Outubro de 2003 Mensagens: 4437
|
Enviada: Sex Jun 17, 2011 6:09 pm Assunto: |
|
|
Se vc esta usando dbEdit, a hora que der um Insert no tableclients ele ira "limpar" os campos... |
|
Voltar ao Topo |
|
 |
silviolucio Novato

Registrado: Segunda-Feira, 13 de Junho de 2011 Mensagens: 65
|
Enviada: Sex Jun 17, 2011 8:26 pm Assunto: |
|
|
mas ele ja da um insert quando abre o form , eu queria limpa todos os campos depois de gravar os novos dados....entende... |
|
Voltar ao Topo |
|
 |
johnny-walker Moderador


Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
Enviada: Sáb Jun 18, 2011 11:24 am Assunto: |
|
|
Isto é um procedimento automático quando vc utiliza dbedits, quando vc utiliza Edits, vc tem de limpar os mesmos, mas é bem simples:
Código: |
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to ComponentCount -1 do
begin
if Components[i] is TEdit then
TEdit(Components[i]).Clear;
if Components[i] is TMemo then
TMemo(Components[i]).Clear;
if Components[i] is TComboBox then
TComboBox(Components[i]).Clear;
//ou
if Components[i] is TComboBox then
TComboBox(Components[i]).ItemIndex := -1;
end;
end;
|
PS.: Recomendo fazer uma procedure para isto, para evitar a repetição desnecessa'ria de códigos.
bye _________________ P.O.W.E.R B.Y D.E.L.P.H.I |
|
Voltar ao Topo |
|
 |
|