Setting Up the Installation Progress Components

From InterBase
Jump to: navigation, search

Use the Progress property, along with a ProgressBar component track the installation status.

function TSampleform.IBInstall1StatusChange(
Sender: TObject; StatusComment : String): TStatusResult;
begin
Result := srContinue;
ProgressBar1.Position := IBInstall1.Progress;
Label1.Caption := StatusComment;
if Cancelling then
begin
if Application.MessageBox(PChar('UserAbort'),
PChar('Do you want to exit'), MB_YESNO ) = IDYES then
Result := srAbort;
end
else
// Update billboards and other stuff as necessary
Application.ProcessMessages;
end;