№2.7 Практикалық сабақ

Тақырыбы: Қосымшаға қыстырма (заставка) қою.

Мақсаты: Қосымшаға қыстырма қоюды үйрену.

Қажетті құралдар мен материалдар: ДК, Delphi ортасы.

Мазмұны мен жұмысты орындау реті

Заставка қою

Заставка терезе деп программаны жүктеген кезде ең бірінші экранға шығарылатын терезені айтады. Заставка терезесі осы программа туралы қысқаша мәліметті сақтайды. Заставка терезесін шығару программа проектісінде заставка–формасын құрып, белгілі бір уақыт өткеннен кейін ол форманы жою арқылы жүзеге асады.

Мысал. Заставка және негізгі формадан тұратын қосымша құрайық. Негізгі терезе заставка терезесінен кейін біраз уақыттан соң пайда болсын.

Қосымша проектісі келесі түрде болады:

Проект файлы

program Zast_p;

uses

Forms,

Main in 'Main.pas' {fmMain},

Zast in 'Zast.pas' {fmZast};

{$R *.res}

begin

Application.Initialize;

fmZast:=TfmZast.Create(Application); { заставка-формасын құру және бейнелеу }

fmZast.Show; fmZast.Update;

Application.CreateForm(TfmMain, fmMain); { Қосымшаның негізгі формасын құру}

fmZast.Hide; fmZast.Free; { Заставка формасын жою }

Application.Run;

end.

FmMain негізгі формасының модулінің файлы

unit Main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

type

TfmMain = class(TForm)

procedure FormCreate(Sender: TObject);

private { Private declarations } public { Public declarations }

end;

var fmMain: TfmMain;

implementation

{$R *.dfm}

procedure TfmMain.FormCreate(Sender: TObject);

var t:longint;

begin t:=GetTickCount div 1000; while (GetTickCount div 1000)<t+5 do;

end; end.

Заставка-формасының модулінің файлы

unit Zast;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

type

TfmZast = class(TForm)

Image1: TImage;

procedure FormCreate(Sender: TObject);

private { Private declarations }public { Public declarations }

end;

var fmZast: TfmZast;

implementation

{$R *.dfm}

procedure TfmZast.FormCreate(Sender: TObject);

begin fmZast.Position:=poScreenCenter;

fmZast.FormStyle:=fsStayOnTop; fmZast.Caption:='';

fmZast.BorderStyle:=bsNone; fmZast.BorderIcons:=[ ];

Image1.Align:=alLeft; Image1.Stretch:=true;

Image1.Width:=fmZast.ClientWidth div 2;

end; end.

Ескерту: Заставка формасының OnCreate оқиғасында жазылған командаларды Объектілер инспекторы терезесі арқылы орындаған ыңғайлы.

Бақылау сұрақтары:

1. Қыстырма дегеніміз не?

2. Қыстырма қою не үшін қажет?

Блиц-тест:

1. Форма модулі файлының кеңеймесі:

A) EXE.

B) DCU.

C) PAS.

D) RES.

E) DPR

2. Қасиеттер мен оқиғалардың редактрленуін жүзеге асыратын терезе аталады:

A) Модуль терезесі

B) Программа коды терезесі

C) Форма терезесі

D) Объектілер инспекторы терезесі

E) Басты терезе

3. Delphi-де ішкі программадан мерзімнен бұрын шығу операторын көрсетіңіз

A) Continue

B) Resume

C) End

D) Break

E) Exit

4. Ағымдағы модульді басқа атаумен немесе дискінің басқа орынына сақтау үшін ... командасы орындалады

A) File - Save

B) File - Save As...

C) File - Close All

D) File - Open

E) File - Save All

5. Форма сипаттамасы файлының кеңеймесі:

A) DFM.

B) DCU.

C) DPR.

D) EXE.

E) PAS.

Әдебиеттер: [2], [5], [7], [11], [13]