Как сделать массив типа этого, какие названия тогда давать Lable? что бы можно было вызывать
L[i].caption:="..."

var
L: array[0..N] of Tlabel;

никаких, просто

lab_array[i]:= TLabel.Create(...);

т.е. в массив кидаются указатели на лэйбелы.

Если лэйбелы уже существуют, то идет просто присваивание

lab_array[0]=label1
lab_array[1]=label2
lab_array[2]=label3

и т.п.

т.е. в массив кидаются указатели на лэйбелы.

Если лэйбелы уже существуют, то идет просто присваивание

lab_array[0]=label1
lab_array[1]=label2
lab_array[2]=label3

и т.п.

Цитата(zemfir @ 21.12.2003, 21:27)

lab_array[i]:= TLabel.Create(...);

а если таким способом, то что в скобках писать надо??
И при этом где он в начале ставить Лейбл?

гм, мда

*************
constructor Create(AOwner: TComponent); override;

Description

Call Create to create an instance of TCustomLabel at runtime. Labels placed on forms at design time are created automatically.

After calling the inherited constructor, Create initializes the following properties:

• AutoSize to True.
• ShowAccelChar to True.
• ControlStyle to [csOpaque, csReplicatable].
• Width to 65 and Height to 17.
*************


на счёт второго вопроса не понял. Написанное выше в равной степени относится ко всем наследникам TComponent.
Если конкретезируете, что конкретно нужно, все будет проще.

zemfir в общем то я понял, спасибо, буду пробывать!
во втором вопросе я спрашивал про width и height, теперь понял..

Не забудь про Parent

Пишу...

var Lab: array[0..3] of Tlabel;
begin
TLabel.Create(TLabel);
end;
не идет...
в общем мне надо создать на форме label компонет, присвоить имя ему, чтобы через него обращаться, позже думаю не составит труда поменять распложение его на форме..
Кто нибудь может маленький пример написать??

Пожалста:

Код

var   Labels: array[0..2] of TLabel; procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin  for i:= 0 to 2 do  begin    Labels[i] := TLabel.Create(Self);    Labels[i].Top:= i * 30;    Labels[i].Caption:= Format('My label %d', [i]);    Labels[i].Parent:= Self;  end; end;

<Spawn> большое спасибо!!!
теперь я понял и сделал о чем мечтал
Все работает!!!