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

Вниз

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

← →
Случайно забежавший   (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"); - ковычки забыл :о)

---

← →
Алхимик ©   (2004-08-11 20:55) [6]

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

---

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

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

Наверх

Память: 0.48 MB
Время: 0.053 c