Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

ToolWindow из Dllины   Найти похожие ветки 

← →
doma   (2004-11-18 11:53) [0]

Народ, помогите решить проблему...

Сделал я dll;

library ToolWindow;

uses
 classes,
 forms,
 controls,
 uToolWindow in "uToolWindow.pas" {Form1};

var
 DllApp: TApplication;
 DllScr: TScreen;
 tool: TForm1;

procedure Init(App: TApplication; Scr: TScreen);
begin
 DllApp := Application;
 DllScr := Screen;
 Application := App;
 Screen := Scr;
end;

procedure Fin;
begin
 if Assigned(tool) then tool.Free;
 Application := DllApp;
 Screen := DllScr;
end;

function CreateForm: TForm;
begin
 tool := TForm1.Create(Application);
 Result := tool;
 with tool do begin
   FormStyle := fsStayOnTop;
   DragKind := dkDock;
   DragMode := dmAutomatic;
   BorderStyle := bsToolWindow;
 end;    // with
end;

exports
 Init,Fin,
 CreateForm;

begin
end.

В основном проекте создал форму... и пытаюсь ее вставить в панель... (у панели установил DockSite := true), но ничего не получается  

Подскажите решение... зарание спасибо...

---

← →
Amoeba ©   (2004-11-18 12:17) [1]

А есть ли такой великий смысл и великая нужда в запихивании этой формы в DLL с последующим полученем такого гемороя?

---

← →
doma   (2004-11-19 16:23) [2]

Да, представь себе... Я сделал систему plug-in"ов, но некоторые функции реализовать не получлось... и это одна из них...

---

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

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.05 c