Quero atribuir string na várialvel, mas este if tá errado...

Delphi

20/01/2005

Quer determinar que se eu acionar o evento OnClick do PopMenu ele dertemine a variavel

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

Wgm8

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

20/01/2005

Colega,

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
Blackdoor

Blackdoor

20/01/2005

E ai cara BLZ???
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
Kapak

Kapak

20/01/2005

if SameText(TMenuItem(Sender).Name, ´Adiar´) then Tipo = ´A´
else
if SameText(TMenuItem(Sender).Name, ´Excluir´) then Tipo = ´E´;


GOSTEI 0
Isabelct

Isabelct

20/01/2005

Tente fazer da seguinte forma:

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
Blackdoor

Blackdoor

20/01/2005

E ai cara BLZ???
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
Isabelct

Isabelct

20/01/2005

Tente fazer da seguinte forma:

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
Marcio.theis

Marcio.theis

20/01/2005

Pelo o que eu entendi vc esta refenrênciando tudo ao mesmo evento OnClick, e vc quer saber quem enviou, você pode fazer da seguinte maneira:

if Sender = btnAdiar then 
    tipo := ´A´; 
if Sender = btnExcluir then 
    tipo := ´E;


espero ter ajduado,


GOSTEI 0
POSTAR