Главная страница
    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.054 c
3-1160123972
Tornado
2006-10-06 12:39
2006.12.10
Подключение к dbf-файлам


3-1160064758
PeterBuild
2006-10-05 20:12
2006.12.10
Вторичные индексы в Парадоксе


2-1162976091
first_may
2006-11-08 11:54
2006.12.10
Директива $IFDEF


8-1146115758
Wolfram
2006-04-27 09:29
2006.12.10
Как проигрывать звук по частям?


2-1164555764
ViktorZ
2006-11-26 18:42
2006.12.10
Update для 2-ух таблиц





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