Скачать: CL | DM;

PopupMenu and Handle   Найти похожие ветки 

← →
312kbps   (2006-10-27 14:19) [0]

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

Спасибо !!!

---

← →
312kbps   (2006-10-27 15:18) [1]

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

---

← →
Mirage   (2006-10-27 15:28) [2]

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

---

← →
312kbps   (2006-10-27 15:31) [3]

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

---

← →
Mirage   (2006-10-27 15:52) [4]

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

---

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

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

---

← →
Mirage   (2006-10-27 16:13) [6]

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

---

← →
312kbps   (2006-10-27 16:25) [7]

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

---

← →
Mirage   (2006-10-27 16:27) [8]

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

---

← →
#0FFFF   (2006-10-28 11:02) [9]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c