Código
2º ensira o código abaixo no botão.
procedure TForm1.Button1Click(Sender: TObject);
var
x:Integer;
begin
for x:=0 to 100 do
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
Sleep(90);
end;
ProgressBar1.Position:=0;
MessageDlg('Sistema carregado com êxito!',mtInformation,[mbYes],0);
close;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009