luciocampetti
Aprendiz
Registrado: Domingo, 25 de Agosto de 2013
Mensagens: 128
Localização: Passo Fundo - RS
|
 Enviada: Qui Set 26, 2013 11:40 pm Assunto: Delphi 7 Duvida evento onclick BitBtn |
 |
|
Boa noite pessoal,
Estou com uma duvida neste evento, de como fazer o seguinte procedimento.
Quando o usuário clica no botão vamos supor que a caption do botão e Preenchimento Manual quando o form inicia, se o usuário clica no botão o caption muda para Pesquisar Cep e se o usuário clicar novamente no botão a caption volta a ser Preenchimento Manual, assim sucessivamente. Como posso fazer esse procedimento? Coloquei este código apenas funciona na primeira vez que clico ele muda o caption se clico na segunda vez ele permanece com o caption sem alterar.
| Código: |
procedure TFrmCliente.BtNPchtoManualClick(Sender: TObject);
begin
DBEditEndereco.Enabled:= True;
DBEditBairro.Enabled:= True;
DBEditCidade.Enabled:= True;
BtNPesquisaCep.Enabled:= False;
BtNPchtoManual.Caption:= 'Pesquisar Cep';
BtNPchtoManual.Glyph.LoadFromFile('C:\ControleEstoque\Imagens\Pesquisar.bmp');
BtNPchtoManual.Width:= 105;
BtNPchtoManual.Height:= 25;
end;
|
Aguardo ajuda, obrigado[/code] |
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Sex Set 27, 2013 10:11 am Assunto: |
|
|
Bom dia,
Experimente mais ou menos dessa forma:
| Código: | if BtNPchtoManual.Caption = 'Pesquisar Cep' then
BtNPchtoManual.Caption := 'Preenchimento Manual'
else
BtNPchtoManual.Caption := 'Pesquisar Cep'; |
Espero que ajude. |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
