|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблема с обращением
Доброго времени суток. Немного под запутавшись, решил написать сюда.
Создаю динамически кнопку Код:
... With TBitBtn.Create(MyForm) do begin Parent := MyForm; OnClick := Prc(nil).MyBtnClick; end; ... и есть класс обработки события Код:
type Prc = class procedure MyBtnClick(Sender: TObject); end; procedure Prc.MyBtnClick(Sender: TObject); begin ///обращение тут end; Собственно вопрос, как обратиться к кнопке, которая вызывает событие, собственно, в процедуре-обработчике данной? Последний раз редактировалось Frozzy6, 19.08.2012 в 01:14. |
#2
|
||||
|
||||
а что, ч\з (Sender as TBitBtn) не катит?
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение: | ||
Frozzy6 (19.08.2012)
|
#3
|
|||
|
|||
Моя невнимательность ужасна.
Спасибо огромное. Так и есть) |