Label no form

Delphi

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

Foxcyber

Curtidas 0

Respostas

Foxcyber

Foxcyber

26/01/2006

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


GOSTEI 0
Massuda

Massuda

26/01/2006

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.


GOSTEI 0
Foxcyber

Foxcyber

26/01/2006

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


GOSTEI 0
Rômulo Barros

Rômulo Barros

26/01/2006

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;



GOSTEI 0
POSTAR