Delphi - Muovere Form cliccando su componente (TImage)

Forum - Delphi - Muovere Form cliccando su componente (TImage)

a_butta (Member)
Expert

Messaggi: 578
Iscritto: 16/03/2010

Postato alle 13:47
Domenica, 18/04/2010

Ciao a tutti!... Come faccio a muovere la form senza muovere il mouse sulla barra della form ma su un immagine che è contenuta dentro?
Cioè come faccio Muovendo un immagine e far muovere l'intera form?

Spero di essermi spiegato.

PS: Sono su lazarus

XBarboX (Member)
Guru

Messaggi: 945
Iscritto: 31/12/2008

Postato alle 14:13
Domenica, 18/04/2010

avrò letto 10 volte ma proprio non riesco a capire.
Cerca di fare un esempio più chiaro

a_butta (Member)
Expert

Messaggi: 578
Iscritto: 16/03/2010

Postato alle 14:21
Domenica, 18/04/2010

Ho risolto! Grazie mille lo stesso.
Quello che serviva a me è poter "far muovere" la form tenendo premuto su un componente e muovendo il mouse contemporaneamente... è più chiaro così?

Scusa la non precisione...

Comunque ho trovato questa soluzione:

Codice sorgente - presumibilmente Delphi

procedure TMainForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, 61458, 0) ;
end;