Unico procedimento para identificar varios componentes

Question

Tenho um radio group e dentro dele tenho um panel, dois labels.
Gostaria que quando clicasse em qualquer um destes componentes ou dentro do proprio radiogroup , disparasse um unico procedimento que identificasse o radiogroup.

Woinch · Answer

Crie um evento OnClick para esse RadioGroup (exemplo: RadioGroup1Click) e nos eventos OnClick dos outros componentes coloque apenas o nome desse evento.

Se n�o for isso que queria, tem como explicar um pouco melhor? Porque n�o entendi muito bem.

Espero ter ajudado.

Pedroso · Answer

o que procuro � mais ou menos istoPrivateLastControl: TControl;procedure CntrlOfChangeControl(Sender: TObject);procedure TForm1.FormCreate(Sender: TObject);begin  Screen.OnActiveControlChange := CntrlOfChangeControl;end;procedure TForm1.CntrlOfChangeControl(Sender: TObject);var  JmpToControl: TControl;  JmpToComponent: TComponent;begin  if ActiveControl <> Nil then    if ActiveControl is TJvPanel then begin      if Length((ActiveControl as TJvPanel).Name)=9 then        JmpToComponent.Name:= �gbCabide� +                              RightStr((ActiveControl as TJvPanel).Name,2);      if Length((ActiveControl as TJvPanel).Name)=11 then        JmpToComponent.Name:= �gbSofa� +                              RightStr((ActiveControl as TJvPanel).Name,2);      JmpToControl:=TRadioGroup(JmpToComponent);      if (JmpToControl as TRadioGroup).Color= clBlack then               LastControl:= TRadioGroup(JmpToComponent);    end; end;Desta forma consigo descobrir se o objeto foi selecionado pelo focus , o problema � que n�o consigo foco em panel. Alguem tem alguma ideia?...

Marco Salles · Answer

On Entre n�o recebe o Foco ????? como assim ???

N�o � que o Panel N�o receba o Foco .. � o Label que n�o recebe pois
ele descende da TGraphicControl e n�o da TWinControl

Ent�o se seu Panel so tem Label vc deve programar o Evento OnClick

Mas o Label n�o detera o Foco ...

procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.Parent:=RadioGroup1;
panel1.Left:=10;
panel1.Top:=10;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Panel1Click(TControl(sender).Parent);
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
 Showmessage(�Nome do Container do �+ Tpanel(sender).Name+� = �
 +TPanel(sender).Parent.Name);
end;

Marco Salles · Answer

Para o Panel Receber efetivamente o Foco Altere a Propriedade
TabStop para True

e coloque no Evento OnEnter do Panel

Showmessage(�estou em�+ TWinControl(sender).Name);

� aqueloa Hora que o Foco Some , e vc tem que dar um Tab para ir
para o Proximo Controle ... Entende ????

Pedroso · Answer

Ok ... mas imagine que vc tenha n�o so 1 radiogroup mas sim 10 no mesmo form , a ideia n�o descobrir qual o nome do compoenente pelo focus mas sim pelo click. Mas da mesma forma que o exemplo que demonstrei anteirormente . Capturando do sistema o click e em qual objeto foi clicado em um unico procedimento..

Marco Salles · Answer

[quote:e76ad7a85a]Capturando do sistema o click e em qual objeto foi clicado em um unico procedimento..[/quote:e76ad7a85a]E o que vc acha que estas instru��es fazem ???Basta ligar os mesmo Manipuladores dos diversos componentes aomesmo evento[quote:e76ad7a85a]procedure TForm1.FormCreate(Sender: TObject); begin panel1.Parent:=RadioGroup1; panel1.Left:=10; panel1.Top:=10; //Outros Paneis Outros RadioGroupend;[/quote:e76ad7a85a][code:1:e76ad7a85a]procedure TForm1.TodosLabelDoSuFormClick(Sender: TObject); begin TodosPanelDoSeuFomrClick(TControl(sender).Parent); end;[/code:1:e76ad7a85a][code:1:e76ad7a85a]procedure TForm1.TodosPanelDoSeuFomrClick(Sender: TObject); begin  Showmessage(�Nome do Container do �+ Tpanel(sender).Name+� = �  +TPanel(sender).Parent.Name); end;[/code:1:e76ad7a85a]Assim Todos compartilham do mesmo evento...

Pedroso · Answer

:D Sim ajuda, mas vou tentar evoluir o assunto e posto logo que conseguir o que realmente quero. Lamento n�o ser t�o did�tico a ponto de esclarecer minhas inten��es. Mas muito obrigado pelas respostas.

Marco Salles · Answer

Beleza pedroso . Mas entenda duas coisa importantes

Se vc colocar em tempo de desgined em Um Formul�rio um Panel
e dentro desse panel um Componente ( Por exemplo um Edit )
Quem � o Propriet�rio desse Edit ?????

Resposta [b:aaafe7aabf]Errada[/b:aaafe7aabf] quem disse ou pensou que � o Panel

Outra , esta tem mais a ver com Vc

Coloque em Tempo de Projeto no Form um RadioGroup e dentro dele
coloque um Panel
Quem � o Progenitor desse panel ???

Resposta Errada quem disse ou pensou que � o RafioGroup

Por isso Eu no evento Oncreate Nudei o Progenitor do Panel

procedure TForm1.FormCreate(Sender: TObject); 
begin 
panel1.Parent:=RadioGroup1; 
panel1.Left:=10; 
panel1.Top:=10; 
//Outros Paneis Outros RadioGroup 
end;

entende ???

F�rum Unico procedimento para identificar varios componentes #370021