Кнопки, созданные во время выполнения приложения

← →
Случайно забежавший (2004-08-11 19:42) [0]

Здрасьте:-) Есть динамический массив (TButton), из которого потом я создаю кнопочки Button[0], Button[1] и т.д. Как словить OnClick этих кнопок? Спасибо...

← →
_student (2004-08-11 19:49) [1]

При создании

Button[i].OnClick:=MyClick;

← →
Алхимик © (2004-08-11 19:51) [2]

procedure TForm.MyClick(Sender: TObject); begin ShowMessage("Обязуюсь прочитать правила задавания вопросов"+#13+ http://www.rsdn.ru/Info/Howtoask.xml); end;

далее

with TButton(Button[0]) do OnClick := MyClick;

← →
Случайно забежавший (2004-08-11 19:55) [3]

А какое имя дать процедуре, которая будет обрабатывать OnClick?

← →
Случайно забежавший (2004-08-11 19:56) [4]

Простите, долго писал, пропустил ответ...

← →
Случайно забежавший (2004-08-11 20:08) [5]

Огромное всем спасибо, сегодня весь день мучался, ничего не получалось, теперь все ок.

ShowMessage("На самом деле обязуюсь прочитать правила задавания вопросов"+#13+"http://www.rsdn.ru/Info/Howtoask.xml"); - ковычки забыл :о)

Это модная фича которой кавычки не требуются :)

Кнопки, созданные во время выполнения приложения Найти похожие ветки