VPF::Как узнать кто вызвал процедуру

Дата 23.9.2008, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4

Есть n-ное число динамически создаваемых обьектов. К им вешаюется процедура OnMouseMove. Как узнать в теле процедуры какой с этих обьектов ее вызвал?

Дата 23.9.2008, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50

см. параметр Sender

Код


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMessage((Sender as TForm).Name)
end;

Дата 23.9.2008, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4

Sender почему то не передается

Дата 24.9.2008, 06:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

Цитата(XperT @ 23.9.2008, 22:31

)

К им вешаюется процедура OnMouseMove

Цитата(XperT @ 23.9.2008, 22:39

)

Sender почему то не передается

Код покажи как вешаеш

--------------------

Кольцов Виктор Владимирович

Дата 24.9.2008, 09:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4

Моей ошибкой было то что я делал вывод про Сендер по параметру нейм который не присваивал. Всем спасибо, вопрос решен.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »