|
procedure
TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
const SC_DragMove = $F014;
begin
//Utilise la touche shift du clavier
et le bouton gauche de la souris
if (ssShift in Shift) and (ssLeft in
Shift) then
begin
ReleaseCapture;
TControl(Sender).Perform(WM_SysCommand, SC_DragMove, 0);
end;
end;
|
