VPF::MainMenu & Hotkeys - Форум программистов

Monty

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

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

Загрузка ...

Advanced Lamer

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

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

Имеется главное окно с главным меню, у которого есть хоткеи, например, CTRL+C ... когда появляется второе окно, а главное остается НЕ активным, то хоткеи в главном меню продолжают прекрасно работать, а во втором окне при нажатии CTRL+C мы ни чего не имеем .... причем эта проблема не решается даже при принудительной блокировки главного меню ... хоткеи перестают работать в главном окне когда оно не активно, но во втором окне мы опять имеем кукишь ....

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

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

Дата 9.4.2005, 23:43 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Всё работает.

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

11.rar

Дата 9.4.2005, 23:44 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Готовый хе-хе

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

Project1.rar

Monty

Дата 10.4.2005, 18:59 (ссылка)

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

Загрузка ...

Advanced Lamer

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

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

Спасибо, заценим smile

Спустя минуту
smile

а в FindDialog мне тоже меню вставить??? smile

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

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

Дата 10.4.2005, 20:34 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Да элементарно:

Код



 function AC:string;
   var
   Handle:THandle;
   Len:LongInt;
   Title:string;
   begin
     Handle:=GetForegroundWindow;
     Len:=GetWindowTextLength(Handle) + 1;
     SetLength(Title,Len);
     GetWindowText(Handle,PChar(Title),Len);
     AC:=(Title);
   end;

............

procedure TForm1.Button1Click(Sender: TObject);
begin
if FindDialog1.Execute then ;

end;

................


procedure TForm1.PopUp1Click(Sender: TObject);
begin
if AC <> Form1.caption then exit;

ShowMessage('TEST1');

end;

Принцип ясен?

Monty

Дата 11.4.2005, 15:33 (ссылка)

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

Загрузка ...

Advanced Lamer

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

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

Цитата

PopUp

Чем дальше в лес ...

Еще раз обьясняю, НО подробно!

Есть гавное меню, в нем есть хоткей CTRL+C ... при появлении окна "Поиска" то даже в нем комбинация продолжает работать, именно моя а не стандартная CTRL+C! Мне так не надо ...

... все, чертовски надоело! Проще закрыть эту тему и забыть про нее навсегда, а самому посылать активному контролу WM_COPY smile

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

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

Monty

Дата 12.4.2005, 21:40 (ссылка)

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

Загрузка ...

Advanced Lamer

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

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

Ну товарищи зарегистрированные:

Цитата

Зарегистрировано 7689 пользователей

Уже выдохлись и нет новых решений?
Мое мне не очень нравится, но 99% я выхужу из ситуации, НО как выйти полностью? Думаю я правильно изложил вопрос? И ко мне не возникнут встречные вопросы как это здесь всегда было ... и боюсь будет smile

PS. я и вправду задаю такие сложные вопросы? smile

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

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

Дата 12.4.2005, 21:53 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Monty Если делать MainForm.Enabled:=false то всё будет прекрасно работать.

OnFindDialogShow - MainForm.Enabled:=false
и
OnFindDialogClose - MainForm.Enabled:=true

Monty

Дата 12.4.2005, 21:55 (ссылка)

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

Загрузка ...

Advanced Lamer

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

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

RAdmin ок smile

... сделаем smile

... и + за упорную поддержку smile

ps.

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

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

Дата 12.4.2005, 21:55 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

А иначе заменить FindDialog на собственный.
Добавлено @ 22:01
Вобще данное решение уже сразу было готово, но я подумал, что тебе нужно всё решить не теряя свойства Enabled для главной формы, а потом понял что тебе это не важно.

Monty

Дата 13.4.2005, 14:17 (ссылка)

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

Загрузка ...

Advanced Lamer

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

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

Цитата(RAdmin @ 12.4.2005, 20:55)

потом понял что тебе это не важно

А я вспомнил что важно smile

... т.е. в пролете smile

........ неужели ни чего нельзя сделать???

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

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

Monty

Дата 13.4.2005, 20:17 (ссылка)

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

Загрузка ...

Advanced Lamer

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

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

и тишина ... она меня убивает

... не могу поверит в то, что вопрос на столько сложен что на него нельзя ответить smile

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

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

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