Как в при вызове Popmenu получить имя компнента вызвавшего его [D7, WinXP]
elena_ © (2005-06-08 16:50:00)
Компоненты создаю динамически:
var x:TImage;
begin
x:=TImage.Create(self);
x.Width:=33;
x.Height:=33;
x.Parent:=ScrollBox1;
x.Picture.LoadFromFile('1.bmp');
x.Left:=296-ScrollBox1.HorzScrollBar.Position;
x.Top:=344-ScrollBox1.VertScrollBar.Position;
x.Stretch:=True;
x.Visible:=true;
x.PopupMenu:=PopupMenu1;
При вызове PopupMenu хочу получить такое:
ShowMessage(Имя компонента х, которе вызвало это PopupMenu1);
Заранее спасибо за помощь...
Юрий Зотов (2005-06-08 16:52:00) [1]
OnPopup -> PopupComponent
Наверх 
ЧАТ |
Орешник |
|
