Скачать: CL | DM;

Как найти компонент 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
что сомнительно...

---

← →
sniknik ©   (2007-11-16 17:29) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c