« 2006年09月 | メイン | 2006年11月 »
rocedure TSDIAppForm.Editor1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
TEditor(Sender).TopRow:=TEditor(Sender).TopRow+Ord(WheelDelta<0)*2-1;
end;