Автор Тема: Динамическое создание компонента на форме  (Прочитано 8599 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Granata005

  • злой бомб
  • Статский советник
  • *****
  • Сообщений: 891
  • Репутация: 31
  • Пол: Мужской
  • Lantorg.com
Код: (delphi) [Выделить]
var
  Form1: TForm1;
  but,but2:TButton;  //объявляем переменные для наших кнопок

procedure TForm1.Button1Click(Sender: TObject);
begin
but:=TButton.Create(Form1);   //создаём компонент
but.Parent:= Form1;               //делаем ей принадлежность форме1
but.Name := 'MyButton';         //устанавливаем имя кнопки
but.OnClick:= ButtonNewClick; //привязываем процедуру ButtonNewClick к событию нажатия кнопки

//обращение к этому компоненту также можно делать с помощью поиска компонента
but2 := TButton(FindComponent('MyButton'));
but2.caption := 'Hello, World!';
end;

procedure TForm1.ButtonNewClick(Sender: TObject);
begin
showmessage(but.Caption);
end;
« Последнее редактирование: ЅЮпСам 19, 2007, 03:43:51 pm от Granata005 »