takemizu blog

« Delphi Algirithms | メイン | アート・オブ・プロジェクトマネジメント」読書感想文 »

2006年10月26日

Delphi TEditor Mouse Scroll

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;

投稿者 takemizu : 2006年10月26日 04:09