Como criar TIMAGE dentro de Panel e criar esse panel (c/o..?

Delphi

19/04/2006

Como criar TIMAGE dentro de Panel e criar esse panel (c/o Timage ora criado) dentro do Scrolbox?

Agradeço desde já a quem puder me ajudar


Exvasp

Exvasp

Curtidas 0

Respostas

M@gnun

M@gnun

19/04/2006

var
Acha_Componente: TComponent;
Scrol: TScrolBox;
Panel: TPanel;
Image: TImage;

begin

Scrol := TScrolBox.Create(Self);
with Scrol do
begin

Name := ´NomedoScrolBox´;
...
end;


Panel := TPanel.Create(Self);
with Panel do
begin

Name := ´NomedoPanel´;
...
Acha_Componente := Form1.FindComponent(´NomedoComponente´);
if not (Acha_Componente = nil) then
Parent := NomedoScrolBox;

end;


Image := TImage.Create(Self);
with Image do
begin

Name := ´NomedoImage´;
...
Parent := NomedoPanel;

end;

end;

Deixo minha duvida aqui:
No AOwner coloco self mas jah vi com nil e tambem o com form em que é criado o componente. Qual é o certo ou melhor qual a diferença.


GOSTEI 0
M@gnun

M@gnun

19/04/2006

nem me liguei no que escrevi desculpa.

onde coloquei:

Acha_Componente := Form1.FindComponent(´NomedoComponente´);
if not (Acha_Componente = nil) then
Parent := NomedoScrolBox;

é assim:

Acha_Componente := Form1.FindComponent(´NomedoScrolBox´);
if not (Acha_Componente = nil) then
Parent := Acha_Componente;

e pro image eh só trocar o nome no FindComponent

foi mal hehehe


GOSTEI 0
POSTAR