Array
(
)

Label no form

Foxcyber
   - 26 jan 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
   - 26 jan 2006

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


Massuda
   - 26 jan 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.


Foxcyber
   - 26 jan 2006

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


Rômulo Barros
   - 26 jan 2006

Não é a solução perfeita, mas já é um bom começo.

Evento OnMouseDown do Label:

#Código

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