Главная страница
    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.45 MB
Время: 0.006 c
15-1206543503
ajlekceu
2008-03-26 17:58
2008.05.11
Путь экспорта файлов из Corel Draw


15-1207017632
TRSteep
2008-04-01 06:40
2008.05.11
Синтаксический анализ


11-1188700319
KOLBoss
2007-09-02 06:31
2008.05.11
Чтение из файла по байтно


15-1206945625
TUser
2008-03-31 10:40
2008.05.11
Чтение файлов


4-1188469370
istok
2007-08-30 14:22
2008.05.11
проблема с unhook...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский