В прошлый раз мы уже познакомились с интерфейсом Delphi 7. В этот раз я научу вас делать простые элементы интерфейса, но уже в ваше программе. Немного углублюсь в историю. Delphi является продолжением популярного языка программирования Pascal. Так же Delphi является одной из первых ООП(Читай прошлую статью). Поэтому Delphi сначала был очень непривычен в то же время максимально удобен. Но это Тогда... Начнем создание кнопки. Сейчас мы будем использовать то, о чем я сейчас говорил. ООП.
Рисуем вот такую кнопочку:
Эта кнопка у нас будет закрывать программу. Спросите и все? Да все! Это же первый урок! Ну а название кнопки давайте поменяем на "Закрыть". Для этого в разделе Caption прописываем Закрыть:
Теперь пропишем функцию кнопочки... Открываем в том же меню вкладку Events и пишем Button1Click Не забудьте что Button1 это и есть кнопка с русским названием Закрыть. Просто внутри программы название не изменено!
Осталось только прописать следующий код:
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin Form1.Close; end;
end.
Все кроме того что подчеркнуто компьютер написал сам. Мы просто добавили функцию закрыть! Хотя можно было бы просто написать не Form1.Close; а Close; но это могло не так сработать.
|