摘要：
procedure TfrmServerInfo.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);begin inherited; if (ssleft in Shift) then begin ReleaseCapture; Perform(wm_syscommand, $F012, 0); end;end; 阅读全文
posted @ 2010-11-14 01:13
bingege
阅读(154)
评论(0)
推荐(0)