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

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

Как в DLL добавить формы

Lexa11_2002 ©   (2007-03-20 19:01:00) 

Доброго времени суток! Народ, как запихать в DLL формы?

---

Leonid Troyanovsky   (2007-03-21 11:08:00) [1]

> Германн ©   (21.03.07 01:00) [7]

> Это вторая ветка автора. Первая сразу была в "Начинающим":

А мой комментарий адресован даже не ему.


> Имхо, если форма создается в DLL и там же уничтожается в
> рамках одной процедуры

Дело не столько в единости процедуры, а в модальности показа.
Т.е., модальную форму еще можно перетерпеть.

--
Regards, LVT.

---

Германн   (2007-03-21 01:00:00) [2]

2 Leonid Troyanovsky ©   (20.03.07 22:36) [6]
Это вторая ветка автора. Первая сразу была в "Начинающим":
http://delphimaster.ru/cgi-bin/forum.pl?id=1174405501&n=18

2 Ант   (20.03.07 22:08) [5]
Имхо, если форма создается в DLL и там же уничтожается в рамках одной процедуры (как в статье приведенной в той ветке), то вопрос вполне рабочий. Всё прочее от лукавого.

---

Leonid Troyanovsky   (2007-03-20 22:36:00) [3]

> Ант   (20.03.07 22:08) [5]

> Аргументируйте, в чем тут заблуждение

В exe форма делается легко и непринужденно,
а в библиотеке - натужно и криво.
Какое уж тут "точно также".

--
Regards, LVT.

---

Ант   (2007-03-20 22:08:00) [4]

> Leonid Troyanovsky ©  

Аргументируйте, в чем тут заблуждение

---

Стас   (2007-03-20 22:03:00) [5]

library Profiles;

uses
 SysUtils,
 Classes,
 QView_main in 'QView_main.pas' {Form_QView},
...
{$R *.res}

exports
 QView,
 ...;
begin
end.

unit QView_main;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, IniFiles;

type
 TForm_QView = class(TForm)
   Chart: TChart;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

procedure QView(DBFname, IniFileName : pchar); stdcall;

var
 Form_QView: TForm_QView;

implementation

{$R *.dfm}

procedure QView(DBFname, IniFileName : pchar); stdcall;
var ...
begin
...
 Form_QView := TForm_QView.Create(Application);
...
 Form_QView.showModal;
...
 Form_QView.Free;
end;

и т.д.

---

Leonid Troyanovsky   (2007-03-20 20:56:00) [6]

> Ант   (20.03.07 20:26) [2]

> делаешь форму  точно также, как в exe

Это заблуждение.

--
Regards, LVT.

---

Ант   (2007-03-20 20:26:00) [7]

Да собственно можно и без ActiveX

делаешь форму  точно также, как в exe
в этом залог успеха

---

Romkin   (2007-03-20 19:06:00) [8]

Сделай ActiveX library с ActiveX Form внутре ;)

---

Наверх