[aqula]

Как отследить что установлено самое верхнее положение в скроллбоксе?
Пробую так но ничего не показывает. ((

Код:

procedure TForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if (Sender is TScrollBox) then
    showmessage(Inttostr(Scrollbox1.VertScrollBar.Position));
end;

[lmikle]

ну, видимо, потому что Sender не есть TScrollBox.
убери этот if и попробуй, тем более, что эта проверка тебе нафиг не нужна, бо как потом ты обращаешься к компоненту напрямую, а не через Sender.

[aqula]

Пробую так

Код:

procedure TForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  with ScrollBox1 do
  if  ((VertScrollBar.Position <= 4) OR
     (VertScrollBar.Position = VertScrollBar.Range - ClientHeight))
  then
    ShowMessage(Inttostr(VertScrollBar.Position));
end;

Интересно, что на других страницах pagecontrol выдает 0, а на той где есть скролбокс молчит.