Вывод : Сегодня я рассмотрел основные события и принцип работы.
Практическая работа №18
Тема практической работы: Использование многострочного редактора TEdit, TMaskEdit.
Цель практической работы: Научится использовать многострочные редакторы.
Ход работы :
Задание №1
Рис 58
Рис 59 Рис 60
Листинг:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask;
type
TForm1 = class(TForm)
Edit1: TEdit;
MaskEdit1: TMaskEdit;
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
Edit1.Text:='Ваш телефон';
showMessage(Edit1.Text+' '+MaskEdit1.Text);
end;
end.
Задание для самостоятельной работы :
Рис 61 Рис 62
Листинг:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask;
type
TForm1 = class(TForm)
Edit1: TEdit;
MaskEdit1: TMaskEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='Ваш телефон';
showMessage('Уважаемый/мая '+Edit2.Text+' '+Edit1.Text+' '+MaskEdit1.Text);
end;
end.
Достарыңызбен бөлісу: |
