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

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

Не работают "горячие" клавиши в DLL [D7, WinXP]

vtur ©   (2007-07-27 11:31:00) 

Здраствуйте, коллеги.

Я разрабатываю Delphi-приложение БД, которое должно работать с разными типами СУБД: Intebase (Firebird), Oracle, MS SQL2000/2005. Я поступил следующим образом: адаптировал приложение для каждой СУБД,  оформил их в виде соответствующих DLL-модулей и создал некое приложение, которое запускает нужный DLL-модуль.
Все работает замечательно, кроме одного: функции всплывающего меню нельзя вызвать при помощи назначенных им "горячих" клавиш, хотя в аналогичных ЕХЕ-шниках с этим вопросов нет.

Может кто-то подскажет, как решить данную проблему?

---

Lacmus   (2007-07-27 12:50:00) [1]

В dll передавать Application.Handle главного приложения,



library Project3;

uses
 SysUtils,
 Classes,
 Forms,
 Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

procedure Test(aHandle: Integer); stdcall;
begin
 Application.Handle := aHandle;
 TForm2.Create(Application).Show
end;

exports
 Test;

begin
end.


---

Lacmus   (2007-07-27 12:50:00) [2]

В dll передавать Application.Handle главного приложения,



library Project3;

uses
 SysUtils,
 Classes,
 Forms,
 Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

procedure Test(aHandle: Integer); stdcall;
begin
 Application.Handle := aHandle;
 TForm2.Create(Application).Show
end;

exports
 Test;

begin
end.


---

Сергей М.   (2007-07-27 12:10:00) [3]

> функции всплывающего меню


Какое отношение всплывающее меню имеет к dll ?

---

Наверх