Hola Panasys.
Cita:
|
Pues que no estoy viendo para poder mover el panel y la imagen en el mismo form
|
Para mover cualquier control en el form, incluyendo un TPanel, asigna esto al evento
OnMouseMove de cada TControl que desees mover:
Código Delphi
[-]
procedure TForm.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
const
SC_DRAGMOVE = $F012;
begin
ReleaseCapture;
TControl(Sender).perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;
Un saludo.