pubunit.pas

来自「Delphi DLL Form 与 TDxDockSite」· PAS 代码 · 共 48 行

unit PubUnit;

interface

uses
  Forms;

  procedure InitDll(App:TApplication;Scr:TScreen); stdcall;
  Function CreateForm(ACaption:PChar):TForm;stdcall;
  procedure DllProcedure(Reason: Integer); register;

implementation
uses
  Classes,Windows,PubVar,controls;

procedure InitDll(App:TApplication;Scr:TScreen);
begin
  Application := App;
  Screen := Scr;
  // p := GetControlAtom;
  // p^ := RealControlAtom;
end;

Function CreateForm(ACaption:PChar):TForm;
var
  Bobm: TFormClass;
begin
  Result := nil;
//  Application.ShowHint:=False;
//  Application.ShowHint:=True;
  Bobm := TFormClass(GetClass(ACaption));
  if BoBm = nil then exit;
  Result := BoBm.Create(Application);
//  Result.Tag := PWorkID;
end;

procedure DllProcedure(Reason: Integer); register;
begin
  if Reason = DLL_PROCESS_DETACH then
  begin
//    Application.ShowHint := False;
    Application := DllApplication;
    Screen := DLLScreen;
  end;
end;

end.