-
Приложение. Пример
На рисунке 5 приведена форма до и после запуска на выполнение.
Рис. 5. Форма до и после запуска
Листинг модуля
unit Umnik;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
LabeledEdit1: TLabeledEdit;
Label2: TLabel; //Назначение программы - Info
Memo1: TMemo;
procedure FormActivate(Sender: TObject); //Загрузка
procedure LabeledEdit1Change(Sender: TObject); //Изменение текста
procedure LabeledEdit1Exit(Sender: TObject); //Потеря фокуса
procedure Memo1Change(Sender: TObject);
procedure FormClick(Sender: TObject);
end;
var Form1: TForm1;
implementation {$R *.dfm}
Var IsLbEd1: String; //Будет присвоено значение Text из поля LabeledEdit1
procedure TForm1.FormActivate(Sender: TObject);
Const Info ='Демонстрация ввода-вывода';
begin
Label1.Caption := Info; //свойству Caption присвоено значение переменной
end;
procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
IsLbEd1 := LabeledEdit1.Text; //переменной присвоено значение св-ва Text
Label2.Caption := 'Установите курсор на поле Memo';
end;
procedure TForm1.LabeledEdit1Exit(Sender: TObject);
begin
Memo1.Text := IsLbEd1;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
Label2.Caption := Label2.Caption + #10#13 + 'Щёлкните по форме';
end;
procedure TForm1.FormClick(Sender: TObject); //Щелчки приводят к добавлению строки
begin
Memo1.Lines.Add(IsLbEd1 + ' добавлено по щелчку'); // метод Add()
end;
end.