Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Вниз

прокрутка.   Найти похожие ветки 

← →
Muha89   (2006-02-20 14:58) [0]

Привет.
У меня вот какая проблема: есть один Webbrawser и один Outline, когда прокрутка в бровзере канчается она переходит на Outline. как запретить это делать?

PS: Прокручивается колесиком мыши.

---

← →
clickmaker ©   (2006-02-20 16:23) [1]

> Muha89   (20.02.06 14:58)  

видимо глюки с фокусом из-за activex
попробуй

procedure TForm1.FormCreate(Sender: TObject);
begin
 FOldOutlProc := DirectoryOutline1.WindowProc;
 DirectoryOutline1.WindowProc := NewOutlProc;
end;

procedure TForm1.NewOutlProc(var Message: TMessage);
begin
 if Message.Msg = CM_MOUSEWHEEL then begin
   if not DirectoryOutline1.Focused then Exit;
 end;
 FOldOutlProc(Message);
end;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c