Form Travado com Gauge

[Maninho_Aru 0]

Estou usando um gauge em um formulário..enquanto carregos os dados e mudo as mensagens para os labels no form, não consigo movimentar o form para lgar nenhum com o mouse.

Alguém sabe me dizer o porque?

[Maninho_Aru 0]

Exemplo de gauge que o formulario trava e não consigo mais movimenta-lo:

 

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

 

begin

for i := 0 to 1000000000 do

gauge1.Progress:=gauge1.Progress+i;

 

gauge1.Free;

form1.setfocus;

end;

 

Após clicar no botão e terminar de carregar o gauge não consigo mais movimentar o form para lugar nenhum com o mouse da tela.

 

Agradeço qualquer Ajuda.

[bdexterholland 0]

provavelmente o loop ainda nao tinha terminado. VocÊ setou o valor 1000000000 para o Gauge1.Max?