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

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

MyImage :Array [1..1000] of Timage; [D5, WinXP]

mifi ©   (2002-06-08 00:16:00) 

народ подскажите как определить у какого
из компонентов произошло событие.
компоненты созданы как написано ниже

MyImage :Array [1..1000] of Timage;
...
...

---

mifi   (2002-06-08 13:15:00) [1]

TO aus
огромное спасибо все рвботает
тема закрыта

---

aus   (2002-06-08 11:47:00) [2]

У тебя не описано, как они созданы, а только объявлены.
При создании каждого объекта для пиши

procedure MyImageClick(sender: TObject);
begin
ShowMessage("MyImageClick");
end;

procedure CreateMyImages;
var i: integer;
begin
for i := 1 to 1000 do begin
MyImage[i] := TImage.Create(self);
MyImage[i].OnClick := MyImageClick;
end;

---

mifi   (2002-06-08 11:27:00) [3]

TO SPeller
Я наверно не так вопрос поставил

так мы узнаем какой именно обект,
но как узнать что воообще произошло ли с донной группой объектов
не важно на каком объекте кликнули (один клик на все объекты)

---

SPeller   (2002-06-08 03:20:00) [4]

for i:=1 to 1000 do begin
MyImage[i]:=TImage.Create(self);
MyImage[i].Tag:=i;
end;

....


procedure ZZZ(Sender:TObject);
begin
ImgNumber:=TImage(Sender).Tag;
...
end;

---

Almaz   (2002-06-08 00:46:00) [5]

Параметр Sender обработчика события.

Удачи.

---

Наверх