[x-zey]

Когда ставлю хук на мышь, есть две очень неприятные проблемы.
1) Когда использую inputbox, мышь на пару сек. подвисает, а бывает и вообще глюканет сильно.
2) При одновременном скролинге в listbox-е, с помощью ролика мыши, и передвижении мыши, так же идут какие-то подвисания курсора. Эта фигня происходит при включенной плавной прокрутке в системе.

p.s. я так понял, что inputbox блокирует дальнейшее выполнение функции, как это предотвратить.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     ListBox1: TListBox;     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   function SysMsgProc(code: integer; wParam: longint; lParam : longint):longint; stdcall;   var   Form1: TForm1;   Mouse_SysHook: HHOOK;   implementation   {$R *.dfm}     function SysMsgProc(code: integer; wParam: longint; lParam : longint):longint; stdcall; begin   Result := CallNextHookEx(Mouse_SysHook, Code, wParam, LParam); if (Code=HC_ACTION) then begin    if (wParam = WM_MBUTTONDOWN) then   begin        InputBox('','','');        result:=-1;   end;     end else     Result := CallNextHookEx(Mouse_SysHook, Code, wParam, LParam); end;     procedure TForm1.FormCreate(Sender: TObject); begin   if Mouse_SysHook <> 0 then     UnhookWindowsHookEx(Mouse_SysHook);     Mouse_SysHook := SetWindowsHookEx(WH_MOUSE_LL, @SysMsgProc, HInstance, 0); end;   end.

-------------------

Сделал обработку inputbox в отдельном потоке, но появился глюк странный, при нажатии кнопки в области моей проге.


p.s. может лучше делать хук в потоке? подскажите пожалуйста..

-------------------
Вроде помогла синхронизация... Но все же, кто нибудь ответит, можно ли этот вопрос решить как-то легче?