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

Вниз

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

← →
Yaro   (2002-03-31 16:29) [3]

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

var p: HWND;

...

p := ActiveXForm.Handle;

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

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

var b: TButton;

Procedure MyFunc(_p: HWND); stdcall;
begin
b := TButton.Create(nil);
b.Left := 100;
b.Top := 100;

...

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

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

---

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

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

Наверх

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