Label no form

Question

Queria saber como fazer para ao redimensionar o form maximizando ou at� mesmo alterando o tamanho com o mouse um certo label fosse aumentando junto com ese redimensionamento. Sabem como fazer isso? Obrigado.

Foxcyber · Answer

Obs.: E a fonte do label fosse aumentando tamb�m....

Massuda · Answer

Acho que d� para redimensionar o label usando as propriedades Achor dele e deixando ele com AutoSize = False. J� o tamanho do fonte utilizado (e as dimens�es, caso o Anchor n�o funcione) precisaria ser alterado no OnResize do seu form.

Foxcyber · Answer

At� esta constata��o eu tamb�m ja havia chegado, queria saber se algu�m ja fez isso e como fez... ;-)...

R�mulo Barros · Answer

N�o � a solu��o perfeita, mas j� � um bom come�o.

[b:689643f73a]Evento OnMouseDown do Label:[/b:689643f73a]

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If(shift = [ssLeft])Then
  Begin
    Label1.Font.Size := X;
  end;
end;