| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ToolWindow из Dllины

doma ©   (2004-11-18 11:53:00) 

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

Сделал я 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), но ничего не получается  

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

---

doma   (2004-11-19 16:23:00) [1]

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

---

Amoeba   (2004-11-18 12:17:00) [2]

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

---

Наверх