Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Номер компонента   Найти похожие ветки 

← →
Rentgen ©   (2004-03-20 11:28) [0]

Создаю компоненты TPanel:

...
for n:=1 to 10 do begin
crp[n]:=TPanel.Create(form1);
crp[n].OnMouseDown:=movecrd;
end;
...

Как узнать в событие movecrd номер комп(n) от которого пришло сообщение?

---

← →
Rentgen ©   (2004-03-20 11:29) [1]

(Извиняюсь за Офф топик)
Странно.. не видно сообщение в основном форуме... :(

---

← →
Алхимик ©   (2004-03-20 11:41) [2]

Заполняешь свойство Tag
Потом в обработчике:
with sender as TPanel do
 ShowMessage(IntToStr(Tag));

---

← →
KosilkA ©   (2004-03-20 11:44) [3]

TComponent(Sender).ComponentIndex

---

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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.038 c