Fórum Sobrepor E Mover Imagem, (marca d´água)! #302272

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, JPeg, Menus;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure MouseParaBaixo(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure MouseMexer(Sender: TObject; Shift: TShiftState; X,Y: Integer);
    procedure MouseParaCima(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    MouseDownSpot: TPoint;
    Capturing: bool;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    image: TImage;
    scrool: TScrollBox;
begin
scrool:=TScrollBox.Create(Application);
scrool.Parent:=Self;
scrool.Name:=´scroll´;
scrool.DoubleBuffered:=True;
scrool.AutoSize:=True;

image:=TImage.Create(Application);
image.Parent:=scrool;
image.Name:=´image´;
image.AutoSize:=True;
image.Picture.LoadFromFile(´C:\imagem1.jpg´);

image:=TImage.Create(Application);
image.Parent:=scrool;
image.Name:=´image2´;
image.AutoSize:=True;
image.OnMouseUp:=MouseParaCima;
image.OnMouseDown:=MouseParaBaixo;
image.OnMouseMove:=MouseMexer;
image.Picture.LoadFromFile(´C:\imagem2.jpg´);
end;

procedure TForm1.MouseMexer(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if Capturing then
    begin
    (Sender as TImage).Left:=(Sender as TImage).Left -(MouseDownSpot.x-x);
    (Sender as TImage).Top:=(Sender as TImage).Top - (MouseDownSpot.y-y);
    end;
end;

procedure TForm1.MouseParaBaixo(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Capturing then
    begin
    ReleaseCapture;
    Capturing:=false;
    (Sender as TImage).Left:=(Sender as TImage).Left - (MouseDownSpot.x -x);
    (Sender as TImage).Top:=(Sender as TImage).Top - (MouseDownSpot.y - y);
    end;
end;

procedure TForm1.MouseParaCima(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ssCtrl in Shift then
    begin
    SetCaptureControl((Sender as TImage));
    Capturing:=True;
    MouseDownSpot.X:=x;
    MouseDownSpot.Y:=Y;
    end;
end;

end.