« 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