Форум: "Основная";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2006.12.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.043 c