Webbrowser dblookupcombobox, проблема

[WOLF007]

Webbrowser dblookupcombobox, проблема

Доброго всем дня. Ну и здесь проведу взрыв мозга=) Столкнулся с проблемой. В программе(Связка Delphi + access) понадобилось сделать просмотр иллюстрированных статей. Решил сохранить все статьи в mht и выводить в webbrowser. Ссылки к данным статьям хранятся в базе. Все выводится, выпадающий список работает. Но как только стоит использовать полосу прокрутки в webbrowser выпадающий список пропадает dblookupcombobox становится неактивным(на нажатия левой кнопкой мыши ни как не реагирует). После нажатия правой кнопки мыши на dblookupcombobox выпадающий список функционирует. Сломал весь мозг googl затерезировал. Может есть другой способ вывода иллюстрированных статей в delphi?

 

[Gruvi]

Попробуй в html сохранять старницы, просто его выводить проще.
если надумаешь html выводить, попробуй

uses
ActiveX;

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank');
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;

if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms);
ms.Seek(0, 0);
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WB_LoadHTML(WebBrowser1,'SwissDelphiCenter');
end;

 

[WOLF007]

для каждого html надо папочку с графикой. Так как в статьях присутствует графика чтобы ее выводить.

 

[WOLF007]

Кто знает как программно вернуть фокус dblookupcomboboxeh? через onmousedown и onmouseenter setfocus не прокатывает.