ScrollBar в FrameBar?

[BingoBongo]

Привет.

Знаю что у компонента FrameBar есть родной ScrollBar, но я его отключил по той простой причине, что мне необходимо, чтобы ScrollBar был всегда видимый, независимо от того, заходят Fame за пределы FarmeBar по вертикали или нет. Поскольку я не смог найти у встроенного ScrollBar параметра для постоянного активного состояния, решил прикрепить внешний ScrollBar.

И тут то всё девлин!
Как внешний ScrollBar синхронизировать с FrameBar даже примерного представления не имею!

Прошу помощи.

p.s. ну или подскажите как альтернатива, как в FrameBar активировать возможность прокрутки колесиком. просто тогда уберу scrollbar. в понедельник (тобеж завтра) надо сдавать.

[BingoBongo]

пока нашел только вот это (((

procedure TMainForm.sScrollBar1Scroll(Sender: TObject;
ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
FrameBar1.VertScrollBar.Position := ScrollPos;
end;

но когда я отключаю у FrameBar вертикальный скролл, внешний ScrollBar по этой процедуре не перехватывает событие. (((

шляпа вообщем (

может кто знает как просто на просто активировать колесико во FrameBar?? это было бы такое облегчение.

[BingoBongo]

function TControlScrollBar.IsScrollBarVisibl e: Boolean;
var
Style: Longint;
begin
Style := WS_HSCROLL;
if Kind = sbVertical then Style := WS_VSCROLL;
Result := (Visible) and
(GetWindowLong(FControl.Handle, GWL_STYLE) and Style <> 0);
end;

это функция (встроенная) выдает результат видимости родного ScrollBar компонента FrameBar.

Можно как-нибудь используя эту функцию, сделать скролл постоянно активным, а не только когда Frame за пределы видимой части уходят?? ((

[eduard93]

А зачем вам нужно делать скролбар всегда видимым?

[BingoBongo]

Сообщение от eduard93

А зачем вам нужно делать скролбар всегда видимым?

После того как он появляется, объекты расположенные во вложенном Frame уже не центрованные (они не по центру). Из-за него расстояние справа меньше чем слева.

А вот если он будет постоянным, так и объекты на Frame будут всегда по ровно по-центру.

Я же говорю, вполне сойдет вариант отключить ScrollBar полностью и сделать функциональным колесико мышки. Проблема в том, что я не знаю как колесико сделать активным для FrameBar (

[Прик]

Метод получается громоздким, но другой мне не известен.

В закладке Additional палитры компонентов есть не визуальный компонет ApplicationEvents.
Его поместить на главную форму и создать процедуру в свойстве OnMessage.

В обработчике событий должен быть такой код:

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message=WM_MOUSEWHEEL then begin
    //определяется окно, над которым курсор мыши и ему посылается сообщение от колеса
    Msg.hwnd := WindowFromPoint(SmallPointToPoint(TSmallPoint(Msg.lParam)));
    SendMessage(Msg.hwnd, WM_MOUSEWHEEL, Msg.WParam, Msg.LParam);
    Handled := True;
  end;
end;

Тогда фрейм будет получать сообщение от колеса и обрабатывать его.
Во фрейме должен быть обработчик сообщений от колеса:

//обявления процедуры обработки сообщения в секции private
  procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;

//реализация обработчика:
procedure TFrame4.WMMouseWheel(var Message: TWMMouseWheel);
var D, I : Integer;
begin
  if Message.WheelDelta < 0 then
    D := 5  //кол-во точек на которое смещаются компоненты (значение по своему усмотрению)
  else
    D:= - 5;
  for I := 0 to ControlCount - 1 do
    Controls[I].Top := Controls[I].Top + D;
end;

Теперь можно сделать вертикальный скроллбар невидимым.

Недостатки есть. Если указатель мыши будет на компонентом, который вставлен во фрейм, то фрейм не будет получать сообщение от колеса.