| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по скроллингу
Ivan © (2009-12-30 21:01:00)Добрый день.
Если кто-то знает объясните пожалуйста почему так происходит, ситуация такая:
на форме TDBGridEh и TWebBrowser (ну и естественно TZConnection, TZQuery и т.д.)
В обработчике ZQuery1AfterScroll
try
Editor.body.innerHTML:=ZQuery1.fieldbyname('opisanie_'+lng).AsString;
except
end;
При скроллинге текста в TWebBrowser все нормально до момента пока не опускаемся до нижней или верхней границы. После этого почему-то начинают скроллится записи в Zqeury1 либо вверх либо вниз в зависимости от того куда скроллили в TWebBrowser.
При этом фокус DBGridEh1 не передается т.к. текущая выбранная строка в нем серая
Подскажите в чем проблемма?
Извиняюсь если непонятно описал проблемму:)
KilkennyCat (2009-12-31 00:29:00) [1]ну не знаю. где-то в свойствах TZчего-то указано на вебброузер.
Ivan (2009-12-30 22:26:00) [2]
> так ты где скроллишь-то? в куере?
скролю в WebBrowser, но когда скрол доходит до конца документа начинает скроллица куеря
KilkennyCat (2009-12-30 22:24:00) [3]так ты где скроллишь-то? в куере?
Ivan (2009-12-30 22:11:00) [4]
> обманываешь, где-то ты его еще привязал.
Ейбогу не вру) Специально сделал новый проект голый чисто коннект к БД и скрол... всеравно та же проблемма.
Придумал туповатый способ решения, в обработчике ZQuery1BeforeScroll
WebBrowser1.SetFocus;
но естественно теперь не скроллятся записи из БД, только мышкой тыкать:)
KilkennyCat (2009-12-30 22:07:00) [5]обманываешь, где-то ты его еще привязал.
Ivan (2009-12-30 21:50:00) [6]
> Почему естественно? что это за объекты?
Это компоненты (Zeos) доступа к БД.
обработчик WB только один:
procedure TForm4.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var CurrentWB: IWebBrowser;
begin
CurrentWB := WebBrowser1.ControlInterface;
editor := (CurrentWB.Document as IHTMLDocument2);
editor.DesignMode := 'On';
end;
stas (2009-12-30 21:43:00) [7]>ну и естественно TZConnection
Почему естественно? что это за объекты?
Какие обработчики стоят на Twebbrowser?
| |
