🚀 go-pugleaf

Delphi XE2

Mam dziwne zachowanie DBGrida z Webbrowser

Analizuje maile z indy
Na formie leży DBGrid oraz Webbrowser
w DBGrid mam
procedure TPocztaKontrahenta.DBGrid1DblClick(Sender: TObject);
begin
   ListView1.Visible:=false;
   Splitter3.Visible:=False;
   ListView1.Items.Clear;
   lista:=TStringList.Create;
   lista.Clear;
   html:= TStringList.Create;
   try
...
if ListView1.Items.Count>0 then
       begin
         ListView1.Visible:=true;
         Splitter3.Visible:=true;
       end;
       WebBrowser1.Navigate('about:blank');
       repeat
         Application.ProcessMessages;
         Sleep(0);
       until
         WebBrowser1.ReadyState = READYSTATE_COMPLETE;

       if WebBrowser1.Document.QueryInterface(IPersistStreamInit, 
PersistStreamInit) = S_OK then
       begin
         if PersistStreamInit.InitNew = S_OK then
         begin
           WebBrowser1.OleObject.Document.Write(html.Text);
         end;
       end;
     finally
       html.Free;
       lista.Free;
end;
I teraz po wykonaniu tego:
Zdarzenia myszy działają w DBGrid
Przesuwam mysz nad WebBrowser i przewijam scroll przewija się DBGrid, a 
nie Webbrowser
Klikam w Webbrowser i przewijam Webbrowser, a nie DBGrid.
Blokuje mi się DBDrid (nie działają operacje myszy)
Mysz nad Webbrowser.
Przewijam do początku Webbrowser i nie przesuwając myszy obracam skrol i 
zaczyna się przewijać DBGrid przechodzi do początku i koniec. Następnie 
nie przesuwając myszy przewijam w dół przewija się Webbrowser i po 
dojściu do końca Webbrowsera zaczyna przewijać się DBGrid.
Od kliknięcia w WebBrowser nie działają zdarzenia DBGrid1DblClick.
Wygląda to tak jakby Webbrowser przechwytywał zdarzenia "click" i nie 
przekazywał do DBGrid, z zdarzenia "Mousemove" przekazywał po 
przewinięciu się do początku lub końca.
Jedyna możliwość odblokowania DBgrid Click to klikniecie myszą na inny 
komponent np ListView1 i wtedy  DBGrid1DblClick działa.


Jak temu zapobiegać?