M
mwj9
Unregistered / Unconfirmed
GUEST, unregistred user!
有一程序:加入一个edit控件,用perform函数用来实现拖动,
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
; Shift: TShiftState; X, Y: Integer);
const
; ;sc=$f012;
begin
; releasecapture;
; (sender as TWinControl).Perform(WM_SysCommand,sc,0);
end;
这里为什么要用releasecapure,请详细说明
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
; Shift: TShiftState; X, Y: Integer);
const
; ;sc=$f012;
begin
; releasecapture;
; (sender as TWinControl).Perform(WM_SysCommand,sc,0);
end;
这里为什么要用releasecapure,请详细说明