Label no form

26/01/2006

0

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

Responder

Posts

26/01/2006

Foxcyber

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


Responder

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

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

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



Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar