Einzelnen Beitrag anzeigen

Benutzerbild von BrunoT
BrunoT

Registriert seit: 23. Jan 2003
Ort: Sandbeiendorf
360 Beiträge
 
Delphi 8 Professional
 
#7

Re: Formular mit Timage und scrollbar

  Alt 9. Jul 2009, 18:20
Hallo Kralle,

ich habe nun mal TScrollbox gegen TJvScrollbox von Jedi ausgetauscht. Somit ist zumindestens das Scrollen mit Maus möglich

Delphi-Quellcode:
procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
   label1.Caption:=inttoStr(WheelDelta);
   if WheelDelta>0 then
   ScrollBox1.ScrollBy(0,-5);
   if WheelDelta<0 then
   ScrollBox1.ScrollBy(0,5);
end;
Ausserdem kann man da bei den Scrollbalken Tracking auf TRUE schalten. e Voila

mfg
Holger

EDV- Ende der Vernunft
Meine Calcedit-Kompo
  Mit Zitat antworten Zitat