![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Hint в формах из dll [D3]
half_litre © (2004-07-13 12:05:00)Может кто-нибудь победил проблему не возникновения hint'ов
на формах из dll.
thk
half_litre (2004-07-13 13:24:00) [1]big BIG THK
:)
Digitman (2004-07-13 13:02:00) [2]попробуй-ка так :
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 12:42:00) [3]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;
Digitman (2004-07-13 12:32:00) [4]
> Передается и Application и Screen
и как используются они у тебя, будучи переданными ?
half_litre (2004-07-13 12:17:00) [5]Передается и Application и Screen
half_litre (2004-07-13 12:15:00) [6]те только одно решение :
вместе с exe и dll таскать ран-тайм пакеты !? :(
Может есть другое решение.
Гаврила (2004-07-13 12:13:00) [7]Могу предположить, что в случае неприемлимости по каким-либо причинам сборки с ран тайм пакетам, проблема может быть решена передачей дескриптора Application
Digitman (2004-07-13 12:11:00) [8]
> проблему не возникновения hint'ов
эт какА такА "проблема" ? нет никаких проблем
> на формах из dll.
формы "из dll" ничем не отличаются от форм "не из dll"
собери оба пректа с ран-тайм пакетами и не парься - проблема сама собой рассосется