Fórum Mover TImage e substituir outro TImage #355423

var ClicouNaImagem:Boolean; iLeft,iTop:Integer; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button <> mbLeft then Exit; ClicouNaImagem := true; iLeft := Mouse.CursorPos.x; iTop := Mouse.CursorPos.y; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if not ClicouNaImagem then Exit; Image1.Left := Image1.Left - iLeft + Mouse.CursorPos.x; Image1.Top := Image1.Top - iTop + Mouse.CursorPos.y; iLeft := Mouse.CursorPos.x; iTop := Mouse.CursorPos.y; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ClicouNaImagem := false; end;