![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кнопки, созданные во время выполнения приложения [D5, WinXP]
Случайно забежавший © (2004-08-11 19:42:00)Здрасьте:-) Есть динамический массив (TButton), из которого потом я создаю кнопочки Button[0], Button[1] и т.д. Как словить OnClick этих кнопок? Спасибо...
Алхимик (2004-08-11 20:55:00) [1]Это модная фича которой кавычки не требуются :)
Случайно забежавший (2004-08-11 20:08:00) [2]Огромное всем спасибо, сегодня весь день мучался, ничего не получалось, теперь все ок.
ShowMessage('На самом деле обязуюсь прочитать правила задавания вопросов'+#13+' http://www.rsdn.ru/Info/Howtoask.xml'); - ковычки забыл :о)
Случайно забежавший (2004-08-11 19:56:00) [3]Простите, долго писал, пропустил ответ...
Случайно забежавший (2004-08-11 19:55:00) [4]А какое имя дать процедуре, которая будет обрабатывать OnClick?
Алхимик (2004-08-11 19:51:00) [5]
procedure TForm.MyClick(Sender: TObject);
begin
ShowMessage('Обязуюсь прочитать правила задавания вопросов'+#13+
http://www.rsdn.ru/Info/Howtoask.xml);
end;
далее
with TButton(Button[0]) do
OnClick := MyClick;
_student (2004-08-11 19:49:00) [6]При создании
Button[i].OnClick:=MyClick;