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

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

PopupMenu and Handle [D7, WinXP]

312kbps ©   (2006-10-27 14:19:00) 

у меня есть хендел окна, подскажите как я могу к нему привязать меню ?
Чтоб при нажатии правой кн мышки в этом окне всплывало меню ?

Спасибо !!!

---

#0FFFF   (2006-10-28 11:02:00) [1]

var
 Form1: TForm1;
 JHook: THandle

function JournalProc(Code, wParam: Integer; var EventStrut: TEventMsg): Integer; stdcall;
var
  Wnd: HWND;
begin
  Result := CallNextHookEx(JHook, Code, wParam, Longint(@EventStrut));
  if Code < 0 then Exit;
  if Code = HC_SYSMODALON then Exit;
  if Code = HC_ACTION then
  begin
    if EventStrut.message = WM_RBUTTONDOWN then
    begin
      if WindowFromPoint(Mouse.CursorPos) = HWND then
      Form1.PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
    end;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 if JHook <> 0 then
 UnhookWindowsHookEx(JHook);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  JHook:= SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hInstance, 0);
end;

---

Mirage   (2006-10-27 16:27:00) [2]

у меня тоже. но предпочитаю покупать сам.

---

312kbps   (2006-10-27 16:25:00) [3]

пиво не проблема )))))))

---

Mirage   (2006-10-27 16:13:00) [4]

>[5] 312kbps 27-Oct-2006, 16:02
>то есть ты только за деньги можешь помочь?
для бесплатного времяпрепровождения у меня есть более интересные варианты.

---

312kbps   (2006-10-27 16:02:00) [5]

то есть ты только за деньги можешь помочь ?
Огромное спасибо !

---

Mirage   (2006-10-27 15:52:00) [6]

мог бы. но ты сумму не озвучил. а аська у меня всё равно не работает. %-)

---

312kbps   (2006-10-27 15:31:00) [7]

Mirage   , а ты мог бы мне помочь ? (аська 192396315)

---

Mirage   (2006-10-27 15:28:00) [8]

какого ты в "основную" полез? тебе тут щаз так помогут, что гематом не оберёшься. подожди лучше, пока вопрос в "начинающим" перенесут. и ещё: не требуй немедленного ответа. иначе рискуешь не получить никакого.

---

312kbps   (2006-10-27 15:18:00) [9]

Помогите хоть кто нибудь с хендлами разобраться !!!
Пожалуста )))

---

Наверх