Fórum Quero atribuir string na várialvel, mas este if tá errado... #266146
20/01/2005
0
Problema: A linha if tá errada..., como devo montar este IF
if Adiar.OnClick then
tipo := ´A´;
if Excluir.Click then
tipo := ´E;
mas este if tem algo errado, alguém pode me ajudar?
Sem mais...
Fui
Wgm8
Curtir tópico
+ 0Posts
20/01/2005
Aroldo Zanela
Não entendi sua dúvida. Normalmente usamos código nos manipuladores de eventos da seguinte forma:
procedure TForm1.Adiar1Click(Sender: TObject); begin Tipo := ´A´; end;
Gostei + 0
20/01/2005
Blackdoor
E o seguinte quando vc usa o danado do ´IF´ tem que ser tipó assim
idPOP31.Connect; if IdPOP31.Connected then showmessage(´conectei´);
endendeu.
eu sei que eu ñ resolvi seu problema mas me passa um e-mail com seu problema especificado que dependendo nois te ajuda.
´a união faz a força.´
[b:08d8c6dfa1]blackdoor@hotmail.com[/b:08d8c6dfa1]
Gostei + 0
20/01/2005
Kapak
else
if SameText(TMenuItem(Sender).Name, ´Excluir´) then Tipo = ´E´;
Gostei + 0
20/01/2005
Isabelct
Selecione seu item Adiar no PopupMenu. Vá até o object inspector (pressione F11), altere para a aba ´Events´ e localize o item OnClick (deve ser o terceiro). De dois clicks ali. Vai abrir uma estrutura como abaixo:
procedure TForm1.Adiar1Click(Sender: TObject); begin // seu código aqui end;
Ali dentro, você coloca as instruções que devem ser executadas quando o usuário clicar neste item do PopupMenu. No seu caso, a atribuição da variável.
Faça a mesma coisa para o item Excluir.
Espero que ajude.
Gostei + 0
20/01/2005
Blackdoor
E o seguinte quando vc usa o danado do ´IF´ tem que ser tipó assim
idPOP31.Connect; if IdPOP31.Connected then showmessage(´conectei´);
endendeu.
eu sei que eu ñ resolvi seu problema mas me passa um e-mail com seu problema especificado que dependendo nois te ajuda.
´a união faz a força.´
[b:9196248d02]blackdoor@hotmail.com[/b:9196248d02]
Gostei + 0
20/01/2005
Isabelct
Selecione seu item Adiar no PopupMenu. Vá até o object inspector (pressione F11), altere para a aba ´Events´ e localize o item OnClick (deve ser o terceiro). De dois clicks ali. Vai abrir uma estrutura como abaixo:
procedure TForm1.Adiar1Click(Sender: TObject); begin // seu código aqui end;
Ali dentro, você coloca as instruções que devem ser executadas quando o usuário clicar neste item do PopupMenu. No seu caso, a atribuição da variável.
Faça a mesma coisa para o item Excluir.
Espero que ajude.
Gostei + 0
20/01/2005
Marcio.theis
if Sender = btnAdiar then tipo := ´A´; if Sender = btnExcluir then tipo := ´E;
espero ter ajduado,
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)