In Listboxen und Stringgrid funktionierts.
In ner From selbst musste ich dazu ne scrollbar einbauen und mit dieser procedure arbeiten.
Hier zb für ne Form die mir ein scrollen durch die Form ermöglicht in der gezeichnet wurde.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7:
| procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin if WheelDelta = -120 then ScrollBarMOPos.Position := ScrollBarMOPos.Position + 1; if WheelDelta = 120 then ScrollBarMOPos.Position := ScrollBarMOPos.Position - 1; DrawMonitorData; end; |
Edit:
Ich benutze selbst noch D7 nicht 2007.
rein statistisch gesehen darf man keiner statistik trauen die man nicht selbst gefälscht hat.