| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как найти компонент TImage в данном случае? [D6, XP]

йцукенЫЧ ©   (2007-11-16 17:15:00) 

Есть код:

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:29:00) [1]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1195221717&n=3
спам

---

sniknik   (2007-11-16 17:24:00) [2]

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

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

---

Наверх