Новые книги
 Курс знакомит с языком программирования Perl, с его принципами, основными возможностями и особенностями в объёме, достаточном, чтобы начать разрабатывать прикладные и системные задачи, включая программирование для сети Интернет.Курс является достаточно подробным введением в язык программирования Perl. Описывается уникальная культура Perl и особенности, отличающие его от других языков программирования и во многом обусловившие его популярность. Рассматриваются основные средства программирования на языке Perl версии 5.8. Разбираются богатые возможности языка для создания самых разных приложений, а также особый стиль программирования на Perl. Курс ориентирован на студентов, начинающих программистов или разработчиков, применяющих другие языки и желающих писать прикладные или системные программы на Perl. |
 Умение хорошо писать – не врожденный дар, а навык, который можно развивать, подобно многим другим. Книга, которую вы держите в руках, поможет вам приобрести необходимую уверенность и снабдит инструментами, которые понадобятся для совершенствования этого навыка.Книга будет полезна для всех, кому приходится писать электронные письма, коммерческие предложения, отчеты, доклады и т. п. На русском языке публикуется впервые. |
Вопрос и Ответ 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);
...предыдущая страница первая...
оглавление