Label no form
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
Curtidas 0
Respostas
Foxcyber
26/01/2006
Obs.: E a fonte do label fosse aumentando também.
GOSTEI 0
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
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
26/01/2006
Não é a solução perfeita, mas já é um bom começo.
[b:689643f73a]Evento OnMouseDown do Label:[/b:689643f73a]
[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