Fórum TLabel criado mas não aparece. #266140
20/01/2005
0
procedure TForm1.colunasExit(Sender: TObject);
var i,j,p,q: integer;
temp: TLabel;
begin
...
temp:=TLabel.Create(Self);
with temp do begin
Top:=225;
Width:=35;
Left:=120+80*j;
Height:=24;
Caption:=´x´+IntToStr(j);
Visible:=True;
end;
...
end;
Os objetos TLabel que crio não estão aparecendo. O que há de errado?
obs.: j é uma variável de um for ... do.
Grato...
Joucoski
Curtir tópico
+ 0Posts
20/01/2005
Massuda
procedure TForm1.colunasExit(Sender: TObject);
var i,j,p,q: integer;
temp: TLabel;
begin
...
temp:=TLabel.Create(Self);
with temp do begin
Parent := Self; // <- faltou o Parent!
Top:=225;
Width:=35;
Left:=120+80*j;
Height:=24;
Caption:=´x´+IntToStr(j);
Visible:=True;
end;
...
end;Gostei + 0
20/01/2005
Joucoski
obrigado... :D
Gostei + 0
20/01/2005
Fernando Piccini
pq tem q atribuir self a ela???
ate mais!!!!
Gostei + 0
20/01/2005
Massuda
De um modo bem simples: Parent indica sobre qual componente visual o componente está posicionado.
Por isso, se Parent = nil, necessariamente o componente não pode ser visualizado, pois não é possível dizer onde o componente deve ser desenhado.
No caso atribuiu Self como sendo o Parent do TLabel porque o TLabel está sobre um form e, no contexto da procedure usada pelo colega joucoski, Self é o próprio form. Se o TLabel estivesse dentro de um TPanel que estivesse dentro do form, então o Parent do TLabel teria de ser o TPanel.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)