Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];

Вниз

ActiveX и использование функций из DLL ............   Найти похожие ветки 

← →
Yaro   (2002-04-05 15:31) [11]

Да и почему такой прикол не страбатывает?

Участок кода ActiveX"a:

var p: TWinControl;

...

p := ActiveXForm;

asm
push p
call MyFunc {Эта функция находится в DLL-бибилиотеке}
end;

Участок кода DLL:

var b: TButton;

Procedure MyFunc(_p: TWinControl); stdcall;
begin
b := TButton.Create(_p);
b.Left := 100;
b.Top := 100;
p.Parent := _p;

...

// SetParent(b.Handle, _p); {Вот здесь-то и ошибка}

// Showmessage(IntToStr(_p)); {Работает, отображает Хэндл того, что я передал}
end;

---

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

Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.009 c