Горячая клавиша в скрытой форме

@xrenomx · Регистрация: 15.02.2012

Author24 — интернет-сервис помощи студентам

Собсно по-моему задача проста но выполнить я ее не смог.

В самом начале в разделе private у меня описано следующее:

Delphi

1 2	procedure WM_HotKeyHandler (var Message: TMessage); message WM_HOTKEY;

Как я все это дело описал:

Delphi

procedure TForm1.WM_HotKeyHandler (var Message: TMessage);
  var
    idHotKey: integer; //идентификатор, но об этом - позже
    fuModifiers: word; //модификатор MOD_XX
    uVirtKey: word; //код виртуальной клавиши VK_XX
begin
  // параметры сообщения получаем так:
  idHotkey:= Message.wParam;
  fuModifiers:= LOWORD(Message.lParam);
  uVirtKey:= HIWORD(Message.lParam);
 
  //теперь - небольшая проверочка:
  if (fuModifiers = MOD_ALT) AND (uVirtKey = VK_F10) then
    Application.ShowMainForm:=True;
  inherited;
end;

В обработчике главной формы OnCreate стоит код:

Delphi

1	Application.ShowMainForm:=False;

Собсно нажимаю ALT+F10 но окно все равно обратно не высвечивается / не появляется.
Или можете предложить другой способ скрыть форму?А то с AlphaBlendValue она то невидимая,но на панели задач(меню пуска) она запущена.

BuPy7 · 18.07.2012, 20:44

Form.Close;

Ищи ошибки в коде. Всё вам разжуй, да в рот положи. Если не работает - значит не так делаешь. Отладка всегда занимается ~~дох~~ много времени. Крепись. Запасайся кофе и вперёд. Ну или просто конфетку пожуй.

@xrenomx · 18.07.2012, 20:47 **[ТС]**

Сообщение от Metallnote

Form.Close;

Ищи ошибки в коде. Всё вам разжуй, да в рот положи.

Тебя никто и не заставляет,мог бы и не отписываться вообще или пост решил набить?))

BuPy7 · 18.07.2012, 20:51

xrenomx, хочу донести до сведения, что если ты даже в таком маленьком коде не модешь найти ошибку, то...Если ты не будешь отлаживать САМ свои программы, то ничего хорошего из этого не выйдет.

@xrenomx · 19.07.2012, 14:08 **[ТС]**

P.S. пошел по другому пути:
Вместо Application.ShowMainForm:=True; написал

Delphi

1 2	ShowWindow(handle,SW_SHOW); ShowWindow(Application.Handle,SW_SHOW);

А в таймере вбил:

Delphi

1
2
3

ShowWindow(handle,SW_Hide);
ShowWindow(Application.Handle,SW_HIDE);
Timer1.Enabled:=false;

Ибо если этот код засунуть в OnCreate формы - то он не работает :\

Проблема та же,при нажатии ALT+F10 ничего не происходит.

BuPy7 Нет ТЗ - давай досвидания 746 / 377 / 64 Регистрация: 01.12.2011 Сообщений: 2,250
	18.07.2012, 20:44	2
	Form.Close; Ищи ошибки в коде. Всё вам разжуй, да в рот положи. Если не работает - значит не так делаешь. Отладка всегда занимается ~~дох~~ много времени. Крепись. Запасайся кофе и вперёд. Ну или просто конфетку пожуй. 0

@xrenomx 2 / 2 / 0 Регистрация: 15.02.2012 Сообщений: 42
	18.07.2012, 20:47 [ТС]	3
	Сообщение от Metallnote Form.Close; Ищи ошибки в коде. Всё вам разжуй, да в рот положи. Тебя никто и не заставляет,мог бы и не отписываться вообще или пост решил набить?)) 0

BuPy7 Нет ТЗ - давай досвидания 746 / 377 / 64 Регистрация: 01.12.2011 Сообщений: 2,250
	18.07.2012, 20:51	4
	xrenomx, хочу донести до сведения, что если ты даже в таком маленьком коде не модешь найти ошибку, то...Если ты не будешь отлаживать САМ свои программы, то ничего хорошего из этого не выйдет. 0

	19.07.2012, 14:08