摘要：
procedure imgListMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);privateprocedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST;procedure TfrmStartHit.WMNCHITTEST(var Msg: TWMNCHITTEST);const cOffset = 10;var vPoint: TPoint;begin inherited; vPoint := Scr 阅读全文
posted @ 2011-08-31 15:28 严武 阅读(684) 评论(0) 推荐(0) 编辑