componentes em run-time
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
Curtidas 0
Respostas
Motta
22/04/2004
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;
GOSTEI 0