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