Скачать: CL | DM;

Не могу показать компонент   Найти похожие ветки 

← →
MikeGipson ©   (2005-10-14 08:39) [0]

Не могу показать компонент, может кто-нибудь сможет мне помочь?
Создаю объект
Type
MyObject = class(TWinControl)
 Private
   ……………………………..
   ……………………………..
   Dev: TfrDevico; //Управляющая панель
   ……………………………..
public
   procedure Created(i: integer);
end;
implementation
procedure TRunRec.Created(i: integer);
begin
 …………..
 dev := TfrDevico.Create(Self);
 dev.Parent := Self;
 …………..
end;
(В свою очередь Dev созданный компонент
TfrDevico = class(TFrame).)
Далее:
Пытаюсь в модуле основной формы показать Dev
Var
 RunRec:  array [0..7] of TMyObjct; //Массив окошечек
procedure TfmForm1.FormCreate(Sender: TObject);
     for n := 0 to 7 do
     begin
       RunRec[n] := TRunRec.Create(Self);
       RunRec[n].Created(n);
     end;
Поля заполняются, а показываться на форме не хочет.
Дело в том что, прописав массив в основном модуле RunRec:  array [0..7] of  TfrDevico
Показывается на форме, легко.
Вот что не так делаю?
Андрей.

---

← →
Юрий Зотов ©   (2005-10-14 13:17) [1]

Непонятно, что такое TRunRec, но похоже, что в FormCreate надо просто добавиь строку: RunRec[n].Parent := Self.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c