Вопросы и Ответы
59. Как создать кнопку во время работы приложения?
Для создания кнопки, во
время работы приложения, необходимо выполнить
всего два шага: При правильном создании объекта, в
данном случае кнопки, этот объект при
уничтожении формы будет автоматически
уничтожен, но желательно всегда самим уничтожать
все объекты созданные в процессе работы
приложения. Это убережет Вас от многих проблем. ............ ............ { Public declarations } end; ............ procedure TForm1.FormCreate(Sender:
TObject); MyButton := TButton.Create(Self); Parent := Self; END; end; ............ PROCEDURE
TForm1.MyButtonDown(Sender: TObject); WITH Sender AS TButton DO MessageDlg('Нажата '+Caption, mtInformation, [mbOk], 0); END; ............ procedure TForm1.FormDestroy(Sender:
TObject); MyButton.Free; end; ............ P.S. Таким же образом
создаются и другие компоненты.
public
MyButton: TButton;
PROCEDURE MyButtonDown(Sender: TObject);
begin
WITH MyButton DO BEGIN
Caption := 'Кнопка';
Left := 0;
Top := 0;
OnClick := MyButtonDown;
BEGIN
begin
...предыдущая страница первая...
оглавление