прокрутка. [D7]
Muha89 © (2006-02-20 14:58:00)
Привет.
У меня вот какая проблема: есть один Webbrawser и один
Outline, когда прокрутка в бровзере канчается она переходит на
Outline. как запретить это делать?
PS: Прокручивается колесиком мыши.
clickmaker (2006-02-20 16:23:00) [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;
Наверх 
ЧАТ |
Орешник |
|
