Создание св-ва Form: TForm у невизуального компонента?

← →
Артем К (2003-09-08 08:44) [0]

Привет всем МАСТЕРАМ!!!

Делаю невизуальный компонент. У него есть св-во Form: TForm.
Как мне сделать, чтобы при размешении на форме этого компонента в это св-во заносилась моя форма.

Заранее спасибо!

← →
Calm (2003-09-08 09:13) [1]

Когда ты положишь свой компонент на форму, то форма станет владельцем (Owner) этого компонента. Т.е. попробуй в констукторе присваивать своему свойству Self.Owner

← →
Smashich (2003-09-08 09:19) [2]

а смысл? как было замеченно форма юудет явдяться владельцем твоего компонента. тогда зачем еще одно свойство?. просто обращайся TForm(Self.Owner). а в конструкторе проверяй владельца. тоесть AOwner is TForm. это в случае конечно если твой компонент не должен принадлежать какому то обьекту не класса TForm.

← →
Юрий Зотов (2003-09-08 09:20) [3]

> в констукторе присваивать своему свойству Self.Owner

И даже этого не требуется. Зачем плодить лишние поля?

type
TMyComp = class(...)
private
...
function GetForm: TForm;
...
public
property Form: TForm read GetForm;
...
end;

function TMyComp.GetForm: TForm;
begin
if Owner is TForm then
Result := TForm(Owner)
else
Result := nil
end;

← →
Артем К (2003-09-08 09:26) [4]

Большое спасибо всем отозвавшимся!

А особенно - Юрию Зотову СПАСИБО!!!

Создание св-ва Form: TForm у невизуального компонента? Найти похожие ветки