Componentes - Saber quando foi clicado nele.
Ola pessoal, preciso saber o nome do componente que o usuário clicou...
obrigado.
obrigado.
Leao
Curtidas 0
Respostas
Thematrix:reloaded
15/03/2003
Tente usar a propriedade ACTIVECONTROL do form
GOSTEI 0
Leao
15/03/2003
campanheiro não deu certo, para ser + preciso, preciso fazer isto com menus.
Obrigado!!!
Obrigado!!!
GOSTEI 0
Thematrix:reloaded
15/03/2003
Entao o que vc precisa e saber qual Item do Menu foi escolhido, certo????
Um soluçao e vc apontar todos para uma mesma procedure, e nela fazer o teste assim:
if sender = MenuItem1 then
...;
if sender = MenuItem2 then
...;
Um soluçao e vc apontar todos para uma mesma procedure, e nela fazer o teste assim:
if sender = MenuItem1 then
...;
if sender = MenuItem2 then
...;
GOSTEI 0
Aroldo Zanela
15/03/2003
campanheiro não deu certo, para ser + preciso, preciso fazer isto com menus.
Obrigado!!!
Leão,
Você pode explicar isso melhor?
GOSTEI 0
Leao
15/03/2003
Bom amigos, a dica acima me ajudaria, mas não seria o ideal.
Vou tentar ser + claro.
Preciso fazer um controle de permissão onde o administrador do sistema escolhe a permissão de cada usuário.
Já pensou meu projeto tem vários menus items imaginou se eu tiver que passar o nome de cada um? Não seria melhor se tiver como eu saber o nome do projeto que eu cliquei?
Precisava algo tipo assim:
TMenuItem(Componentes[i]).Enabled:=False;
Bom mei sei se digitei certo, mas para quem entendi do assunto, axo que vai entender.
Mas todavia acho que a dica vai me ajudar?
Só vou ter um pouco de trabalho.
Obrigado.
Vou tentar ser + claro.
Preciso fazer um controle de permissão onde o administrador do sistema escolhe a permissão de cada usuário.
Já pensou meu projeto tem vários menus items imaginou se eu tiver que passar o nome de cada um? Não seria melhor se tiver como eu saber o nome do projeto que eu cliquei?
Precisava algo tipo assim:
TMenuItem(Componentes[i]).Enabled:=False;
Bom mei sei se digitei certo, mas para quem entendi do assunto, axo que vai entender.
Mas todavia acho que a dica vai me ajudar?
Só vou ter um pouco de trabalho.
Obrigado.
GOSTEI 0
Leao
15/03/2003
Pessoal já resolvi, vejão como, talvez alguem depois necessite
Primeiro criei uma Procedure
procedure x(sender : tObject);
procedure TForm1.x(sender : tObject);
begin
TMenuItem(sender).Checked:=not(TMenuItem(sender).Checked);
end;
e depois mandei que todos os eventos onclick dos menusitems facao o seguinte:
procedure TForm1.xy1Click(Sender: TObject);
begin
x(sender);
end;
assim posso pergar o nome de cada um...
Obrigado amigos...
Primeiro criei uma Procedure
procedure x(sender : tObject);
procedure TForm1.x(sender : tObject);
begin
TMenuItem(sender).Checked:=not(TMenuItem(sender).Checked);
end;
e depois mandei que todos os eventos onclick dos menusitems facao o seguinte:
procedure TForm1.xy1Click(Sender: TObject);
begin
x(sender);
end;
assim posso pergar o nome de cada um...
Obrigado amigos...
GOSTEI 0