| 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 |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
