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;

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