Не могу показать компонент [D6, Win95/98]
MikeGipson © (2005-10-14 08:39:00)
Не могу показать компонент, может кто-нибудь сможет мне
помочь?
Создаю объект
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:00) [1]
Непонятно, что такое TRunRec, но похоже, что в FormCreate надо
просто добавиь строку: RunRec[n].Parent := Self.
Наверх 
ЧАТ |
Орешник |
|
