Label no form

26/01/2006

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

Respostas

26/01/2006

Foxcyber

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


Responder Citar

26/01/2006

Massuda

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.


Responder Citar

26/01/2006

Foxcyber

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


Responder Citar

26/01/2006

Rômulo Barros

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&93;)Then
  Begin
    Label1.Font.Size := X;
  end;
end;



Responder Citar