Вывод : Сегодня я узнал о возможностях компонентов расположенных на вкладке Additional.
Практическая работа №16
Тема практической работы: Визуальные компоненты среды Delphi (system).
Цель практической работы: Узнать о возможностях компонентов расположенных на вкладке System.
Ход работы :
Задание №1
Рис 52 Рис 53
Листинг:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label2: TLabel;
Bevel1: TBevel;
Timer1: TTimer;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
TickCounter: LongInt;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Timer1.Enabled then
begin
Timer1.Enabled:=False;
BitBtn1.Caption:='&Старт';
Timer1.Enabled:=False;
BitBtn1.Caption:='&Старт';
end
else
begin
timer1.Enabled:=true;
BitBtn1.Caption:='&Стоп';
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
TickCounter:=0;
Edit1.Text:='0.0';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TickCounter:=0;
Edit1.Text:='0.0';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var seconds:Real;
s:string;
begin
TickCounter:=TickCounter+1;
Seconds:=TickCounter/10;
Str(Seconds: 10:1, S);
Edit1.Text:=S;
if Label2.Left=0 then
Label2.Left:=ClientWidth-100
else
Label2.Left:=Label2.Left-1;
end;
end.
Достарыңызбен бөлісу: | 
