Показать сообщение отдельно
  #6  
Старый 03.03.2013, 11:26
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от sandysman
...как теперь назначить событие на клик кнопки из массива?..
Можно прописать свою процедуру нажатия в юните
Код:
...
private
   procedure MyClick(Sender: TObject);
...

procedure TForm1.MyClick(Sender: TObject);
begin
...
...

end;
а в вышеприведенный цикл создания кнопок добавить строчку
Код:
ButtonArr[i].OnClick:= MyClick;
Ответить с цитированием