VPF::Форма из dll. - Форум программистов

NiJazz

Дата 17.3.2004, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Есть программа и dll - они в одной папке. Можно сделать так, чтобы dll содержала в себе формы, которые могла бы загрузить основная программа? Если можно, то как?

PS Топик тесно связан с предыдущим о dll.

<Spawn>

Дата 17.3.2004, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

подключай к ДЛЛ-ке модули с формами и делай функции по их динамическому созданию.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Borland_Delphi_6

Дата 17.3.2004, 15:53 (ссылка)

(нет голосов)

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20

Можно код? А то меня этот вопрос тоже давно мучает...

--------------------

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

Serggggg

Дата 17.3.2004, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 12.12.2003
Где: Донецк, Украина

Репутация: нет
Всего: нет

NiJazz, ты хочешь использовать формы из DLL в качастве обычных форм, которым программа передает управление или же у тебя MDI-приложение?

--------------------

C уважением, Serggggg.

NiJazz

Дата 17.3.2004, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Serggggg
Первое.

<Spawn>

Дата 17.3.2004, 22:04 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Вот простенький пример.

Модуль с нужной формой:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Hi');
end;

end.

Длл:

Код

library DLL;

uses
  SysUtils,
  Classes,
  Unit1;

{$R *.res}

procedure CreateForm1;
begin
  Form1 := TForm1.Create(nil);
  Form1.ShowModal;
end;

exports
  CreateForm1;

begin
end.

Форма 2:

Код

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  procedure CreateForm1; external 'DLL.dll' name 'CreateForm1';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateForm1;
end;

Добавлено @ 22:07
Если же нужно немодальную форму вызвать, то для ее правильной работы необходимо инициализировать Application длл-ки Application-ом вызывающего процесса

Это сообщение отредактировал(а) <Spawn> - 17.3.2004, 22:08

--------------------

StayAtHome

Дата 18.3.2004, 02:41 (ссылка)

(нет голосов)

Загрузка ...

Домосед

Профиль
Группа: Участник
Сообщений: 456
Регистрация: 26.1.2004
Где: Украина

Репутация: 1
Всего: 16

Цитата

Если же нужно немодальную форму вызвать, то для ее правильной работы необходимо инициализировать Application длл-ки Application-ом вызывающего процесса

А если я длл-ку создаю не под стороннюю прогу, и у меня нет ссылки на ее Application?
Если присвоить Application.Handle:=<Хендл главного окна проги> (как советует справка), то все-равно, некотрые вещи не работают. Что можно еще придумать?

Guest

Дата 18.3.2004, 03:17 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

.........
Form1 := TForm1.Create(nil);
Form1.ShowModal;
........
Может все-таки не стоит забывать про TApplication?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »