Transformar TImage em uma esp�cie de Panel

Question

Boa noite! Eu gostaria de colocar uma imagem como background no meu form, mas de forma onde conseguisse alinhar os objetos dentro do TImage. Ex.: 1 - Tenho um TImage alclient no meu form; 2 - Col...

Joel Rodrigues · Accepted Answer

Outra op��o seria deixar o TImage com Align = alNone e fix�-lo em Left=0, Top=0 e Height e Width iguais �s do form. Em seguida, alterar a propriedade Anchors para fixar todas as posi��es (akLeft, akTo...

Joel Rodrigues · Answer

N�o � poss�vel fazer de forma autom�tica, pois o TImage n�o � um container. Esse tipo de manipula��o precisa ser feita manualmente, posicionando cada controle em seu devido lugar e ativando as �ncoras para ele permanecer fixo....

Renato Rubinho · Answer

Uma op��o menos trabalhosa � utilizar o evento onResize do Parent dos objetos:

No exemplo a seguir coloquei o TImage e o TLabel dentro de um TPanel.

No OnResize do TPanel, removo o Align do TLabel, atribuo alClient ao TImage para alinh�-lo e depois removo, pois "j� est� posicionado onde desejo" e, por fim, atribuo alClient ao TLabel.

procedure Panel1Resize(Sender: TObject);
begin
  Label1.Align := alNone;
  Image1.Align := alClient;
  Image1.Align := alNone;
  Label1.Align := alTop;
end;

Joel Rodrigues · Answer

Se � pra manter os controles internos em posi��es fixas, ser� que essa op��o � mesmo menos trabalhosa, uma vez que envolve codifica��o para todos os controles em quest�o? E se consideramos que a cada pixel alterado nas dimens�es esse evento � disparado, ter�amos essa "montagem" da interface sendo feita in�meras vezes.
Abra�o.

Renato Rubinho · Answer

Joel Rodrigues, eu nunca tinha usado a propriedade Anchors... Assim � obviamente melhor.Faz a mesma coisa, mas sem uma linha de programa��o....

F�rum Transformar TImage em uma esp�cie de Panel #509708