Как найти компонент TImage в данном случае?

← →
йцукенЫЧ (2007-11-16 17:15) [0]

Есть код:

for i :=1 to 10 do begin with TImage.Create(Self) do begin if Names <> "" then Name :=Names; if Tops <> "" then Top :=StrToInt (Tops); if Lefts <> "" then Left :=StrToInt (Lefts); if UnikalCode <>"" then Tag :=StrToInt(UnikalCode); Width :=22; Height :=18; if State = "0" then Picture.LoadFromFile(CurrentDir+"\blue.bmp") else if State = "3" then Picture.LoadFromFile(CurrentDir+"\yellow.bmp") else Picture.LoadFromFile(CurrentDir+"\green.bmp"); PopupMenu :=PopupMenu1; Parent :=Self; OnClick :=Abros; end; end; procedure TForm1.N8Click(Sender: TObject); begin end;
Делаются 10 картинок. Т.е. как видно из кода по нажатию правой кнопки мыши на компоненте TImage, всплывает меню. Sender становится у меня PopupMenu1.Как мне узнать именно ту картинку, по которой был сделан Click правой кнопкой мыши?

← →
sniknik © (2007-11-16 17:24) [1]

> Как мне узнать именно ту картинку, по которой был сделан Click правой кнопкой мыши
TPopupMenu(Sender).PopupComponent

это конечно если
> Sender становится у меня PopupMenu1
что сомнительно...

http://delphimaster.net/view/15-1195221717/
спам

Как найти компонент TImage в данном случае? Найти похожие ветки