Hint в формах из dll

← →
half_litre (2004-07-13 12:05) [0]

Может кто-нибудь победил проблему не возникновения hint"ов
на формах из dll.
thk

← →
Digitman © (2004-07-13 12:11) [1]

> проблему не возникновения hint"ов

эт какА такА "проблема" ? нет никаких проблем

> на формах из dll.

формы "из dll" ничем не отличаются от форм "не из dll"

собери оба пректа с ран-тайм пакетами и не парься - проблема сама собой рассосется

← →
Гаврила © (2004-07-13 12:13) [2]

Могу предположить, что в случае неприемлимости по каким-либо причинам сборки с ран тайм пакетам, проблема может быть решена передачей дескриптора Application

← →
half_litre (2004-07-13 12:15) [3]

те только одно решение :
вместе с exe и dll таскать ран-тайм пакеты !? :(
Может есть другое решение.

← →
half_litre (2004-07-13 12:17) [4]

Передается и Application и Screen

← →
Digitman © (2004-07-13 12:32) [5]

> Передается и Application и Screen

и как используются они у тебя, будучи переданными ?

← →
half_litre (2004-07-13 12:42) [6]

var
OldApp : TApplication;
OldScr : TScreen;

function InitDll(App:TApplication;Scr:TScreen): boolean;stdcall;
begin
result:=false;
try
Application:=App;
Screen:=Scr;
.........
end;

procedure DoneDll; stdcall;
begin
Application:=OldApp;
Screen:=OldScr;
end;

exports DoneDll;
exports InitDll;

begin
OldApp:=Application;
OldScr:=Screen;
end;

попробуй-ка так :

function InitDll(AppHandle:THandle;Scr:TScreen): boolean; stdcall;
begin
result:=false;
try
Application.Handle:=AppHandle;
Screen:=Scr;
.........
end;

exports InitDll;

p.s.
ты из С-Билдера намерен обращаться к ДЛЛ ? stdcall зачем ?

← →
half_litre (2004-07-13 13:24) [8]

big BIG THK
:)

Hint в формах из dll Найти похожие ветки