Главная страница
    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.043 c
15-1164286983
misha_gr
2006-11-23 16:03
2006.12.10
C# для начинающих.


3-1159946116
Монг
2006-10-04 11:15
2006.12.10
Проблема с выполнением функции


2-1164310772
Kostafey
2006-11-23 22:39
2006.12.10
Экспорт из TBDGridEh в Excel


2-1164221667
xan001
2006-11-22 21:54
2006.12.10
excel+delphi


10-1126267280
Nick Denry
2005-09-09 16:01
2006.12.10
Microsoft Character Agent





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский