Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Кнопки, созданные во время выполнения приложения [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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо