Formulario ( Resize ) ??????

Delphi

20/12/2003

Pessoal eu montei uma funcao que retorna a quantidade de combustivel no tanque e mostra num Gauge..Mas ele so Mostra mesmo quando eu minimizo o formulario e maxmizo;


procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
begin
Label4.caption := TimetoStr(Atualiza_tanque(Dados.AdoQuery1,frmPrincipal.Gauge2,frmPrincipal.gauge3,frmPrincipal.Gauge1));
frmPrincipal.Resize;
end;


Como Faço.

Grato


Michel

Michel

Curtidas 0

Respostas

Fórum Vini

Fórum Vini

20/12/2003

Olá,
tenta assim:
procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
begin
  Label4.caption :=  TimetoStr(Atualiza_tanque(Dados.AdoQuery1,frmPrincipal.Gauge2,frmPrincipal.gauge3,frmPrincipal.Gauge1));
  Gauge1.Repaint;
end;


Espero ter ajudado.
Vinicius.


GOSTEI 0
Michel

Michel

20/12/2003

Nao vai .vini. ja tinha tentado cara..O q sera q acontece hein... pq se por acaso estou com o programa aberto e word ( exemplo ) se eu alternar de tela passando de um para outro ai ele da certo... :cry:


GOSTEI 0
Fórum Vini

Fórum Vini

20/12/2003

Ae,
Se você quiser me passar o projeto eu dou uma olhada.

Espero ter ajudado.
Vinicius.


GOSTEI 0
Michel

Michel

20/12/2003

Vini O meu formulario tava como (fsMDIForm) ai eu coloquei (fsNormal) vc sabe pq acontece isso ??

Valeu Cara

Obrigado pela Atenção !


GOSTEI 0
Fórum Vini

Fórum Vini

20/12/2003

Michel,
é muito estranho, mas devem ser aquelas coisas que só a Microsoft faz por você...

:lol:


GOSTEI 0
Michel

Michel

20/12/2003

É isso ai !

Valeu Galera


GOSTEI 0
POSTAR