摘要: procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin if WheelDelta ... 阅读全文
posted @ 2014-11-25 15:23 不能失败 阅读(437) 评论(0) 推荐(0) 编辑