Componentes - Saber quando foi clicado nele.

Delphi

15/03/2003

Ola pessoal, preciso saber o nome do componente que o usuário clicou...


obrigado.


Leao

Leao

Curtidas 0

Respostas

Thematrix:reloaded

Thematrix:reloaded

15/03/2003

Tente usar a propriedade ACTIVECONTROL do form


GOSTEI 0
Leao

Leao

15/03/2003

campanheiro não deu certo, para ser + preciso, preciso fazer isto com menus.

Obrigado!!!


GOSTEI 0
Thematrix:reloaded

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
...;


GOSTEI 0
Aroldo Zanela

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

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.


GOSTEI 0
Leao

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


GOSTEI 0
POSTAR