Вывод : Сегодня я изучил визуальные компоненты standard; узнал о их свойствах и областях применения.
Практическая работа №14
Тема практической работы: Визуальные компоненты среды Delphi (win32).
Цель практической работы: рассмотреть возможности компонентов, расположенных на вкладке win32.
Ход работы:
Рис 48
Листинг :
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;
type
TForm1 = class(TForm)
DateTimePicker1: TDateTimePicker;
Label1: TLabel;
procedure DateTimePicker1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DateTimePicker1Change(Sender: TObject);
var s,s1:string;
i:integer;
begin
s:=datetostr(DateTimePicker1.Date); s1:=copy(s,4,2); i:=strtoint(s1);
case i of
1: label1.Caption:='Январь';
2: label1.Caption:='Февраль';
3: label1.Caption:='Март';
4: label1.Caption:='Апрель';
5: label1.Caption:='Май';
6: label1.Caption:='Июнь';
7: label1.Caption:='Июль';
8: label1.Caption:='Август';
9: label1.Caption:='Сентябрь';
10: label1.Caption:='Октябрь';
11: label1.Caption:='Ноябрь';
12: label1.Caption:='Декабрь';
end; end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end; end.
Достарыңызбен бөлісу: | 
