Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.044 c
2-1164281662
1701g0
2006-11-23 14:34
2006.12.10
результат работы.


2-1164095901
Сатир
2006-11-21 10:58
2006.12.10
Именованные массивы


2-1164489332
kami
2006-11-26 00:15
2006.12.10
Потокобезопасность TStringList


2-1164380949
Ryder
2006-11-24 18:09
2006.12.10
Пара вопросов


15-1164214148
Andy BitOff
2006-11-22 19:49
2006.12.10
Не сочтите зп рекламу, но ...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский