Обращение к динамически созданной метке

← →
Fr3nch (2005-11-12 16:37) [0]

Помогите решить:
Создаю метки следующим образом
for i := 1 to Z do begin l := TLabel.Create(self); l.Parent := form1; l.Top := random(500); l.Left := random(500); l.Caption := "LABEL"; l.Transparent := true; l.Name := "label" + inttostr(i); end;

Вопрос: как обращаться к этой метке, например, labelZ.caption := "...";

← →
stdctrls (2005-11-12 17:37) [1]

uses stdctrls;

VAR B, B1: TLabel; cl: TNotifyEvent;

procedure TForm1.FormCreate(Sender: TObject);
begin
B := TLabel.create(self);
B1 := TLabel.create(self);
B.parent := self;
B.top := 50; B.left := 50;
b.Caption := "--B--";
B1.parent := self;
B1.top := 10; B1.left := 10;
B1.Caption := "--++B1++--";
end;

← →
SergP. (2005-11-12 17:40) [2]

> Вопрос: как обращаться к этой метке, например, labelZ.caption
> := "...";

А зачем же ты тогда теряешь указатели, если хочешь обращаться ко всем лейбам? У тебя же остается только указатель на последнюю метку...

После этого остается только искать по имени через FindComponent.

Лучше сохрани указатели в массив.

var l:array of TLabel; ... setlength(l,z); for i := 0 to Z-1 do begin l[i] := TLabel.Create(self); l[i].Parent := form1; l[i].Top := random(500); l[i].Left := random(500); l[i].Caption := "LABEL"; l[i].Transparent := true; l[i].Name := "label" + inttostr(i); end;

После этого можешь обращаться к любой метке так например:

l[2].caption:="это одна метка";
l[8].caption:="это совсем другая метка";
...

← →
StdCtrls (2005-11-12 17:41) [3]

uses StdCtrls ;
var B: array[0..99] of TLabel;

procedure TForm1.FormCreate(Sender: TObject);
var i: word;
begin
for i := 0 to 99 do
begin
B[i] := TLabel.create(self);
with B[i] do
begin
parent := self;
tag := i;
width := 25;
Height := 25;
top := i div 10 * width;
left := (i * Height) - ((i div 10) * Height * 10);
Caption := "B" + inttostr(i);
end;
end;

B[99].caption:="this is the label";

end;

← →
Fr3nch (2005-11-12 18:46) [4]

благодарю!

Обращение к динамически созданной метке Найти похожие ветки