Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: ScrollBox, auf mausrad ?!?

    Delphi
    by Sprint, 6. Feb 2005
  procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
  begin
  
  with (Sender as TScrollBox).VertScrollBar do
  Position := Position + 10;
  
  end;
  procedure TForm1.ScrollBox1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);