Buscar por:

Mostrando tela de "aguarde "

Código

{Digamos que seu programa executa uma função um pouco demorada e você gostaria que aparecesse uma tela mostrando um "aguarde" até o processo finalizar, para isso faça o seguinte:

}

procedure TForm.Button1Click(Sender: TObject);

var F:Tform;

MSG: Tlabel;

Borda: TShape;

begin

F:=  TForm.Create(Application);

F.BorderStyle:= bsNone;

F.Position:= poDesktopCenter;

F.Width:= 100;

F.Height:= 16; //até aqui criamos o form

Borda:= TShape.Create(Application);

Borda.Parent:= F;

Borda.Align:= alClient; // uma borda envolta do form

MSG:=  TLabel.Create(Application);

MSG.Parent:=F;

MSG.Transparent:= true;

MSG.AutoSize:= false;

MSG.Width:= 98;

Msg.Caption:='Aguarde';

MSG.Alignment:= taCenter;//label com a mensagem "Aguarde"

F.Show;

F.Update;

//Aqui você coloca os procedimentos desejados

F.Free; //E finalmente libera a janela

end;

Obs: Você pode alterar as propriedades de cada objeto, como fonte, cor, tamanho, etc.. para deixar com a sua cara.

Espero ter ajudado de alguma forma!!