Fórum componentes em run-time #227606
22/04/2004
0
Estou fazendo um aplicativo q cria uma quantidade variável de componentes tpanel em run-time. Existe um menu suspenso q pode ser usado por todos esses tpanels. gostaria de saber como faço para descobrir q tpanel foi usado para chamar o menu.
Thaleshcv
Curtir tópico
+ 0
Responder
Posts
22/04/2004
Motta
menu popup ?!
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if PopupMenu1.PopupComponent is Tpanel then
Showmessage(TPanel(PopupMenu1.PopupComponent).Name);
end;
procedure TForm1.menu1Click(Sender: TObject);
begin
showmessage(´ss´);
end;
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if PopupMenu1.PopupComponent is Tpanel then
Showmessage(TPanel(PopupMenu1.PopupComponent).Name);
end;
procedure TForm1.menu1Click(Sender: TObject);
begin
showmessage(´ss´);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)