Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.05.11;
Скачать: CL | DM;

Вниз

Подскажите в чем может быть причина создаю массив меток таким   Найти похожие ветки 

 
smartleds   (2008-04-10 19:27) [0]

образом
объявление
var   ArrOfLabel:array of Tlabel;
Заполнение массива в процедуре  formCreate
SetLength(ArrOfLabel,amount_channels);
for i:=0 to amount_channels-1 do
  begin
ArrOfLabel[i]:=TLabel.Create(self);
ArrOfLabel[i].Parent:=Form1;
ArrOfLabel[i].Width:=20;
ArrOfLabel[i].Height:=20;
ArrOfLabel[i].Left:=X2;
ArrOfLabel[i].Top:=Y2+150;
ArrOfLabel[i].caption:=inttostr(i);
end ; //for i
Проблема в следующем если хочу заполнение массива внести в отдельную процедуру инициализации
то компилятор ругается на строку
ArrOfLabel[i]:=TLabel.Create(self);
пишит
[Error] testarray.pas(149): Undeclared identifier: "self"
не пойму что ему не нравится ?


 
MsGuns ©   (2008-04-10 19:30) [1]

Сделать процедуру методом класса формы


 
smartleds   (2008-04-10 19:36) [2]

вы имеете ввидк так :
procedure  tform1.initcialization(Sender: TObject);


 
Семеныч   (2008-04-10 20:00) [3]

> smartleds   (10.04.08 19:36) [2]

Да, только Sender не нужен. Сделайте совсем без параметров.


 
{RASkov} ©   (2008-04-10 20:30) [4]

Или как вариант можно так:
procedure initcialization(AOwner: TComponent; AParent: TWinControl);


 
MsGuns ©   (2008-04-10 20:47) [5]

>{RASkov} ©   (10.04.08 20:30) [4]
>procedure initcialization(AOwner: TComponent; AParent: TWinControl);

Это на новоукраинском ?
;)


 
{RASkov} ©   (2008-04-10 21:30) [6]

> [5] MsGuns ©   (10.04.08 20:47)
> Это на новоукраинском ?

Ну это автору виднее на каком)
Я честно признаюсь - украл название с поста чуть выше:)



Страницы: 1 вся ветка

Текущий архив: 2008.05.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
15-1206894166
garik
2008-03-30 20:22
2008.05.11
Зацените?


15-1206533074
Тыщ
2008-03-26 15:04
2008.05.11
Ассемблер в Turbo Pascal 7.0


2-1207833052
Снежинка
2008-04-10 17:10
2008.05.11
Запрос


2-1207738265
Fr1K
2008-04-09 14:51
2008.05.11
Событие по нажатию


4-1188724269
Rusya
2007-09-02 13:11
2008.05.11
Пункт в меню "Создать"