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

Вниз

Нужно в RUN-Time создавать экземпляры некоторых объектов (для при   Найти похожие ветки 

 
NS   (2002-04-17 11:57) [0]

{ Нужно в RUN-Time создавать экземпляры некоторых объектов (для примера
TLabel) и хранить их (указатели на них) в TList.
}
PMyLabel = ^TMyLabel; // указатель на мой тип
TMyLabel = class(TLabel) // мой тип
public
S: string;
end;
var
MyLabel: TMyLabel;
ListLabel: TList;
Form1: TForm1;

implementation
{$R *.DFM}
// --------- Создание формы -----------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
ListLabel:= TList.Create; //созд. список указателей
ListLabel.Clear; // очищаем его

MyLabel:= TMyLabel.Create(Owner); //создаем экземп. объекта
ListLabel.Add(MyLabel); //добавляем указатель нанего в список

// А ЭТО НЕ РАБОТАЕТ хотя компилятор пропускает
PMyLabel(ListLabel.Items[0])^.Caption:= "qqqqqqq";
end;
// А может как-то всё по другому нужно делать.


 
Ra ©   (2002-04-17 12:06) [1]

>// А ЭТО НЕ РАБОТАЕТ хотя компилятор пропускает
> PMyLabel(ListLabel.Items[0])^.Caption:= "qqqqqqq";

tMyLabel(ListLabel.Items[0]).Caption:= "qqqqqqq";





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

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

Наверх




Память: 0.46 MB
Время: 0.011 c
1-94453
Deadlock
2002-04-16 07:25
2002.04.29
Функция Format


3-94328
Ujin_m
2002-04-09 11:51
2002.04.29
Как определить что DB session alive


1-94359
NS
2002-04-17 11:57
2002.04.29
Нужно в RUN-Time создавать экземпляры некоторых объектов (для при


1-94451
agrig
2002-04-15 20:23
2002.04.29
несколько колонок в QReport


14-94541
Knight
2002-03-21 13:21
2002.04.29
вопросик имеется... типа