Relogio

Delphi

23/08/2005

Olá lista... tenho um form que é um relógio e gostaria de saber se algum cilega sabe me informar como faço p/ quando eu alterar o tamanhoo do form, a fonte do relogio alterar tb... tipo form maior relogio maior e form menor relogio menor...
Obrigado
Pedro Leonardo


Pleonardomv

Pleonardomv

Curtidas 0

Respostas

Celamar

Celamar

23/08/2005

Deixe propriedade ALIGN do seu Label (o que está recebendo a hora) como alClient e no evento FormResize do Form faça:

procedure TForm1.FormResize(Sender: TObject);
begin
  label1.Font.Size := Trunc(label1.Width * 0.10 );
end;



GOSTEI 0
Pleonardomv

Pleonardomv

23/08/2005

legal, mas se mudar a altura (Height) nao acontece nada. Queria que fosse os dois Height e Width, mas se não aparecer outra solução esta já resolve.
Obrigado
T+


GOSTEI 0
POSTAR