VPF::блокировка вызова второго экземпляра формы из dll

Teleport

Дата 25.8.2008, 18:27 (ссылка)

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

Загрузка ...

Опытный

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

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

в моей программе я вызываю форму из dll Так вот, нажимаю на кнопку вызов - форма вызывается. нажимаю еще раз - еще раз вызывается. И так можно вызывать и вызывать одну и ту же форму причем не важно открыта она уже или нет. Получается куча форм.
Вопрос в том, как сделать так чтобы форма не вызывалась из dll, если она уже открыта. Чтобы просто этой самой форме (которая вызвана из dll) передавался фокус. Если закрыта - то вызываем форму из dll, если уже открыта, то передаем ей фокус и все. smile

ShowModal не предлагать. smile

Исходник прилагается

Mainn.dpr - проект основного приложения.
libr.dpr - проект библиотеки.
Unit1.pas - модуль с формой, которую загружаю в dll.

Присоединённый файл ( Кол-во скачиваний: 5 )

dll___block.rar 11,54 Kb

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

THandle

Дата 25.8.2008, 21:19 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Код


procedure ShowForm(Appl, Form: THandle);
begin
  if not Assigned(Form1) then
    begin
      Application.Handle := Appl;
      Form1 :=TForm1.Create(Application);
      Form1.Show;
    end
  else
    Form1.SetFocus;
end;

Teleport

Дата 26.8.2008, 00:53 (ссылка)

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

Загрузка ...

Опытный

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

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

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

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

Rohoss

Дата 26.8.2008, 01:11 (ссылка)

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

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

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

Наверное окно просто становится невидимым…

Добавлено через 2 минуты и 59 секунд
Может написать в событии формы

Код


procedure TForm1.FormHide(Sender: TObject);
begin
Close;
end;

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

Файловый менеджер Explorer.Net скачать video

Teleport

Дата 27.8.2008, 00:32 (ссылка)

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

Загрузка ...

Опытный

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

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

добавил процедуру в вмодуль вызываемой формы:

Код


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(Form1);
end;

теперь все как надо работает ;)

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

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