Как место меню закрытия окна вставить что-то свое?

[chandrasecar]

Здравствуйте.

Как можно перехватить действие: нажатие правой кнопкой мыши по ярлыку программы в панеле Windows? Это есть на картинке. И показать вместо этого меню что-то свое (например тоже меню, но свое, улучшенное).

Кто что может, подскажите. Спасибо!

[BOBAH13]

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

[JTG]

Можно переделать это меню, добавить/убрать пункты...

Тока в делфи "меню окна" и меню "кнопки на панели" разное.
Доступ к первому GetSystemMenu(form1.handle, false);
ко в торому GetSystemMenu(application.handle, false);

[chandrasecar]

Спасибо. Как я понял с помощью ф-ции GetSystemMenu можно только урезать меню или расширить, варьируя параметрами False и True. А как это меню убрать совсем и чтобы вместо щелчка правой кнопкой вылезала, скажем, новая форма?

[JTG]

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

Мсье знает толк в извращениях

Итак, при помощи МНТм (метод научного тыка мышью), а также МНИ (метод научной интуиции), было установлено: при правом/левом клике по кнопке на панели задач приходит вот такая серия сообщений окну (application.handle, а не form.handle)

$B001 ? <- Тут нажали мышь
$0046 WM_WINDOWPOSCHANGING
$001C WM_ACTIVATEAPP
$B000 ? <- Тут отпустили мышь
$007F WM_GETICON
$0313 ?
$00AE ?
$00AE ?
$00AE ?
$00AE ?
$0211 WM_ENTERMENULOOP
$0020 WM_SETCURSOR
$00AE ?
$00AE ?
$00AE ?
$0116 WM_INITMENU
$0117 WM_INITMENUPOPUP
$0121 WM_ENTERIDLE

B000, B001, 0313, 00AE... - в заголовках не нашёл, странно, м.б. какие-то "дельфийские" штуки Перекрыв 0313 меню перестало появляться

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    function HookProc(var Message: TMessage): Boolean;
  public
    { Public declarations }
  end;

...........

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.HookMainWindow(HookProc);
end;

function TForm1.HookProc(var Message: TMessage): Boolean;
begin
  Result := False;
  if message.Msg = $0313 then
     begin
       MessageBox(0,'ПОЗДРАВЛЯЮ! Эпический велосипед изобретён успешно!'+#13#13+
                  'Супер-навороченное меню будет вот тут. Вам предстоит:'+#13+
                  '1. Отрисовывать его в нужном месте (около мыши)'+#13+
                  '2. Отслеживать повторное появление этого сообщения пока "меню" активно',
                  'Лямпапам', mb_ok+mb_iconinformation);
       result:=true; //не передаём сообщение окну
     end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.UnhookMainWindow(HookProc)
end;

Блин. В delphi 7 работает, в 2007 нет

[ForzaJuve]

а не подскажите случайно как переписать етот хук не длЯ данной проги а глобально для всех прог?

[JTG]

Не подскажу, ибо он даже для одной проги непонятно как работает

[ForzaJuve]

не для 1 проги понятно ты отлавливаеш сообщения а как их глобально отловить?

[chandrasecar]

JTG, большое спасибо! Скажите, а как эту же фишку сделать с другим меню Формы? Посмотрите скрин.

Заранее благодарен!

[JTG]

 private
    { Private declarations }
    procedure CaptionRClick(var Message: TMessage); message WM_NCRBUTTONDOWN;
    procedure CaptionLClick(var Message: TMessage); message WM_NCLBUTTONDOWN;
........

procedure TForm1.CaptionRClick(var Message: TMessage);
begin
   //если кликнули правой по шапке или иконке окна
   if (Message.wParam = HTCAPTION) or (Message.wParam = HTSYSMENU) then 
  begin
    ShowMessage('Правый клик по заголовку');
  end
  else inherited;  //остальное передаём окну
end;

procedure TForm1.CaptionLClick(var Message: TMessage);
begin
 //если кликнули по иконке окна
    if (Message.wParam = HTSYSMENU) then
  begin
    ShowMessage('Клик по иконке окна');
  end
  else inherited;
end;