2015年3月11日
Delphi 不用标题栏移动窗体
摘要： procedure TxxxxForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const sc_DragMove: Integer = $F012; begin 阅读全文
posted @ 2015-03-11 19:20 海利鸟 阅读(510) 评论(0) 推荐(0) 编辑