Buscar

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!!

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 14/07/05
Por: Luciano De Lyra
Visualizada: 65167 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009