Курсовая работа: Базы данных. Создание программы Телефонный справочник

begin

if IsFirst then

begin

IsFirst := false;

FStartTime := 0; // GetTickCount;

end;

if IsCanStart then

begin

Tick := GetTickCount;

if Tick > (FStartTime + 0) // 1000

then PostMessage(MainFOrm.Handle, MM_OKSTART, 1, 0);

end

end;

procedure TMainForm.EndThread(var Message: TMessage);

begin

Image1.Visible := true;

Caption := '';

lbPersent.Visible := false;

lbMessage.Visible := false;

ProgressBar1.Visible := false;

IsCanStart := true;

end;

end.

Приложение

unit Thread;

interface

uses

Classes, Windows, sysUtils, Progress, forms, dialogs;

type