Создание компонента в режиме Runtime
Создадим кнопку на форме в режиме выполнения программы (at runtime mode). Для этого поместим на форму компонент TButton и в обработчике событий OnClick запишем код, указанный ниже:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
procedure TForm1.Button1Click(Sender: TObject); var New_Button: TButton; begin New_Button := TButton.Create(Form1); with New_Button do begin Parent := Form1; height := 25; width := 165; caption := 'Новая кнопка!'; eft := 8; top := 35; end; end; |