procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; //$F020
begin
ReleaseCapture;
(Sender as TWinControl).Perform(WM_SysCommand, SC_DragMove, 0);
end;
如何判断谁是消息的接收者?或处理者?
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; //$F020
begin
ReleaseCapture;
(Sender as TWinControl).Perform(WM_SysCommand, SC_DragMove, 0);
end;
如何判断谁是消息的接收者?或处理者?
sender.ClassName;