использование TObj

← →
KVita (2005-07-17 15:24) [0]

почему у меня pObj.InstanceSize всегда возвращает 0?

PMyObj=^TMyObj;
TMyObj=object(TControl)
несколько методов
....
end;

var
MyObj:PMyObj;
i:Integer;
begin
MyObj:=PMyObj(_NewControl(...);
i:=MyObj.InstanceSize; // = 0 ????
и вообще - как KOL-объект размещается в памяти?

← →
Thaddy (2005-07-17 19:31) [1]

Do you use Fields? ( i.e. something like:
TmyObj = object(Tcontrol)
private
FField:Integer;
public
procedure setmymethod(value:integer);
end;
)
If that is the case you disturb the KOL Tcontrol structure.
Fields should be in a separate object attached to the CustomObj property of Tcontrol.

← →
Barloggg (2005-07-18 13:44) [2]

Да, именно так. В Tobj нельзя хранить никаких данных.
Будь добр создавай отдельный класс и храни все в нем, а этот класс цепляй к созданному тобою Tobj указанным Thaddy способом.

← →
KVita (2005-07-18 14:48) [3]

Полей у меня там нет, только методы и свойства (да с полями и вообще не работает). А вообще может кто порекомендует литературу по объектной модели. В стандартном Delphi Help про объекты нашел только, что дескать полный отстой. (лучше, конечно, по-русски, но на безрыбье и на буржуйском сойдет)

← →
Thaddy (2005-07-18 18:15) [4]

There are many examples on my website that show how to derive from Tcontrol the proper way. Also the controls by Vladimir himself and by ECM are good studymaterial. On the main KOL website there is a howto, written in russian that explains how to derive a new Tcontrol. For Tobj this problem does not exist: the same mechanism as VCL applies.

использование TObj Найти похожие ветки