Обьектно-орентированность, в GMODE Опции

[gMan]

Допустим нарисовал я кнопку. И еще, еще...
А как сделать эту обьектно-орентированность (блин, слово то какое) не пойму!

Может кто обьяснит?

[BlackShadow]

Давай-ка лучше заново и по-подробнее. Я что-то не особо въехал. Ты спрашиваешь, как использовать процедуру написанную на ASM в паскале? {$L ...) и понеслось. Это ты должен знать. Если наоборот, то EXTERN ...:PROC и поехали.
А если тебе надо из ассемблерного кода поработать с паскалевскими объектами, то это уже другое дело. Рекомендую так: создаёшь класс TObject такого типа:

Type
  TObject=Object
    Constructor Create;
    Procedure Free;
    Destructor Destroy;Virtual;
  End;

Constructor TObject.Create;
Begin
End;

Destructor TObject.Destroy;
Begin
End;

Procedure TObject.Free;
Begin
  Dispose(this,Destroy)
End;

После этого надо заюыть про то, что Dispose сожно вызывать и самому, а пользоваться только Free. А САМОЕ важное - ВСЕ классы должны наследоваться от такого вот TObject. Чего мы этим добились? Мы знаем где находится адрес VMT в объектах и можем их спокойно создавать, кастовать и убивать:).
Чтобы создать объект:

{Creating static object}
PUSH @DATA
PUSH OFFSET InstanceOfMyObject
CALL TSomeObject.Create
{Creating dinamic object}
XOR AX,AX
PUSH AX
PUSH AX
CALL TSomeObject.Create

Что примечательно, последний вариант сам вызовет new и т. д., а так же вернёт тебе поинтёр на инстанс.
Чтобы вызвать какой-то динамический метод:

MOV BX,[WORD PTR InstanceOfMyObject] {Get Offset Of VMT}
MOV AX,@DATA {Segment, where VMT Are Located}
MOV ES,AX
CALL [FAR PTR ES:(BX + 4*MethodNumber)]

Надо заметить, что Method #0 - Destructor.
Чтобы кильнуть:

PUSH SEG MyObj
PUSH OFFSET MyObj
CALL TObject.Free

оно и память освободить и деструктор вызовет.

Вот только я в душе не знаю во что превращаются имена статических методов объектов при компиляции, а так же имена конструкторов...