Como criar TIMAGE dentro de Panel e criar esse panel (c/o..?
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
Agradeço desde já a quem puder me ajudar
Exvasp
Curtidas 0
Respostas
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.
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
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
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