Перетаскивание image(a)

[dmitriegorovih]

DIgorevich в image(э) handle(a) нет

[Stilet]

Господа, все гораздо проще чем кажется.
Достаточно выставить для Image DragMode:=dmAutomatic и DragKind:=dkDock
А для СкроллБоксов Docksite:=true как они сами будут подхватывать в себя таскаемое изображение.
Ферштеен?

[dmitriegorovih]

Ферштеен?

Ферштеен тока есть один минус во первых тоскаеться одна рамка, во вторых когда щёлкаешь двойным щелчком то он перетаскивается на форму.

[Stilet]

во первых тоскаеться одна рамка

Ну эт механизм докирования. тут нчего не поделаешь. Иначе пиши свой собственный механизм.

когда щёлкаешь двойным щелчком то он перетаскивается на форму.

Не на форму а на специальную плавающую панель.

[DIgorevich]

А что простые вещи уже не работают:

var
  Form1: TForm1;
  moving:Boolean;
implementation

{$R *.dfm}

procedure TForm1.img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 moving:=true;
end;

procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
    p:TPoint;
begin
if moving then
begin
  GetCursorPos(p);
  img1.Top:=p.Y-img1.Height;
  img1.Left:=p.x-img1.Width;
end;
end;

procedure TForm1.img1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  moving:=false;
end;

Дальше от этого можно скакать... центрировать курсор и позицию соответственно.

[mutabor]

Можно еще проще, в MouseMove из параметра Shift: TShiftState можно узнать нажата ли мыша или нет:
if ssLeft in Shift ...

[dmitriegorovih]

А что простые вещи уже не работают:

Ну я почти так и делал вот смотрите тырк

[dmitriegorovih]

Вроде получилось.
Тока осталось одно, как сделать чтобы image скажем так ”ходил” поверх тока этих двух скроллбоксов?

Procedure TForm1.ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
image1.Left:=(image1.Left+x)-round(image1.Width/2);
image1.Top:=(image1.Top+y)-round(image1.Height/2);
end;

P.S. Для модераторов если можно то не редактируйте это сообщение в два потому что если отредактировав эти два сообщения, моя тема опять опуститься в списке если не опуститься то можно .

Смотрите что я сотворил

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, pngimage;

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    Button1: TButton;
    Image1: TImage;
    Edit1: TEdit;
    Button2: TButton;
    procedure Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Image1EndDrag(Sender, Target: TObject; X, Y: Integer);
    procedure Image1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ScrollBox2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nagata,b:boolean;
  x2,y2:integer;
implementation

{$R *.dfm}

procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
//
end;

procedure TForm1.Image1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
 TImage(Sender).Parent:=scrollbox1;//TWinControl(Target);
 b:=false;
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
if b=true then begin
image1.Left:=(image1.Left+x-x2){-round(image1.Width/2)};
image1.Top:=(image1.Top+y-y2){-round(image1.Height/2)};
end else begin
x2:=x;
y2:=y;
b:=true;
end;
end;

procedure TForm1.ScrollBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
image1.Parent:=scrollbox2;
image1.Left:=({image1.Left}+x)-round(image1.Width/2);
image1.Top:=({image1.Top}+y)-round(image1.Height/2);
end;

procedure TForm1.ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
image1.Parent:=scrollbox1;
image1.Left:=({image1.Left}+x)-round(image1.Width/2);
image1.Top:=({image1.Top}+y)-round(image1.Height/2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FORM1.DoubleBuffered:=true;
scrollbox1.DoubleBuffered:=true;
scrollbox2.DoubleBuffered:=true;
end;

end.

Всем спасибо за помощь жалко что нельзя таскать image по верх scrollbox(ов)

[artemavd]

Поднимаю данную, нужную мне тему.

Применил настройки, которые Stilet, указал в посте №12. Но только как-то получилось странно. Мне нужно изображение с Image1 скопировать перетаскиванием мышки на Image2, чтобы при этом исходное изображение никуда не перетаскивалось. А сейчас получается так: зажимаю мышкой на Image1, тащу его на Image2, при этом Image1 как бы вырезается и перемещается, а не копируется на Image2, то вроде Image1 "копируется" на Image2, а если я его же, Image1 пытаюсь уже переместить в пределах Image2, то Image1 помещается в рамку с крестиком для закрытия. Если я ее перетаскиваю и отпускаю на Image2, то рамка исчезает.

В связи с вышеизложенным 2 вопроса:
1. Как сделать, чтобы Image1 не вырезалось со своего места, а копировалось?
2. Как сделать непоявление рамки с крестиком для закрытия?

[dmitriegorovih]

artemavd Ну вы меня удивляете

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, pngimage;

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    Button1: TButton;
    Image1: TImage;
    Edit1: TEdit;
    Button2: TButton;
    procedure Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Image1EndDrag(Sender, Target: TObject; X, Y: Integer);
    procedure Image1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ScrollBox2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nagata,b:boolean;
  x2,y2:integer;
  kom:Timage;
implementation

{$R *.dfm}

procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
//
end;

procedure TForm1.Image1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
 kom:=Timage.create(form1);
kom.parent:=form1;
kom.left:=Timage(sender).left;
kom.top:=Timage(sender).top;
kom.picture.assign(Timage(sender).picture);
 b:=false;
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
if b=true then begin
image1.Left:=(image1.Left+x-x2){-round(image1.Width/2)};
image1.Top:=(image1.Top+y-y2){-round(image1.Height/2)};
end else begin
x2:=x;
y2:=y;
b:=true;
end;
end;

procedure TForm1.ScrollBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
image1.Parent:=scrollbox2;
image1.Left:=({image1.Left}+x)-round(image1.Width/2);
image1.Top:=({image1.Top}+y)-round(image1.Height/2);
end;

procedure TForm1.ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
image1.Parent:=scrollbox1;
image1.Left:=({image1.Left}+x)-round(image1.Width/2);
image1.Top:=({image1.Top}+y)-round(image1.Height/2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FORM1.DoubleBuffered:=true;
scrollbox1.DoubleBuffered:=true;
scrollbox2.DoubleBuffered:=true;
end;

end.