[Xcopy]

вообщем я хочу сделать типо того label(i) где i номер labela над которым я хочу работать

Как это реальзовать?

[Interface]

Если правильно понял то так:

Код:

var
a : Integer;
labl: array [0..10] of TLabel;
begin
For a := 0 to 10 do
begin
labl[a] := TLabel.Create(self);
Labl[a].Caption := 'Label('+IntToStr(a)+')';
// тут все подобное...
end;

[Xcopy]

нето...
дело в том что я нехочу присваивать переменной значение лайблов... я хочу присвоить переменной номер лайбла! нодеюсь вы меня поняли.



label1 -в данном случае номер лайбла 1.
label5 -в данном случае номер лайбла 5.

[ApplicatiOn]

свойство tag у label'а

[Xcopy]

по умолчаию свойство тег у всех лабелов равно 0!

[ApplicatiOn]

ну так меняй..

Код:

label1.tag := 1;
label5.tag := 5;

[Xcopy]

Tag Ячейка для хранения произвольного целого числа. Это свойство создано исключительно для программиста, Delphi оно не нужно.

[ApplicatiOn]

а разве по tag'у обращаться к компонентам нельзя?

[Xcopy]

Твою задумку я понял... но в данном случае это мне ничего недаст!
Дело в том что я хочу в таймере сделать обработчик событий который выполнял действия с лабелами... А точнее чтобы он свойству visible присваивал true. Но как бы через интервал таймера: например у меня 20 лабелов, и свойство висибл у них false. У таймера интервал 1000, и в таймере япишу чтобы он делал так:
лабелX.visible:=true;
X:=X+1;\\и он будет бесконца в таймере через 1000 показывать по лабелу...

[Xcopy]

А как по тегу обратиться к компоненту?

[ART]

Код:

function tform1.getlabel(tag: integer): tlabel;
Var
 i: integer;
begin
 for i := 0 to componentcount - 1 do
  if components[i] is tlabel then
  *If tlabel(components[i]).tag = tag then begin
*   result := tlabel(components[i]);
    exit;
 End;
result := nil;
End;

[Xcopy]

всем спасибо за старание.... надо было сделать так:

TLabel(FindComponent('Label' + IntToStr(i))).visible :=true;