Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];

Вниз

MyImage :Array   Найти похожие ветки 

← →
mifi   (2002-06-08 00:16) [0]

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

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

---

← →
Almaz   (2002-06-08 00:46) [1]

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

Удачи.

---

← →
SPeller   (2002-06-08 03:20) [2]

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;

---

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

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

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

---

← →
aus   (2002-06-08 11:47) [4]

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

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 13:15) [5]

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

---

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

Форум: "Основная";
Текущий архив: 2002.06.20;
Скачать: [xml.tar.bz2];

Наверх

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