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

[dmitriegorovih]

Всем доброго времени суток у меня такой вопрос как надо перетаскивать image c одного scrollbox на другой? вот пример
Вот так я сделал перетаскивание но тока я перетинул картинку как потом она не пере таскиваеть дотехпо пока я не отпщу мышку если у кавото есть предложение зарание благодарин

[Stilet]

пока я не отпщу мышку

Ну так весь смысл Drag&Drop в том чтоб отпустить мышку, а не держать ее в заточении твоих пальцев.

[dmitriegorovih]

Drag&Drop

Всмысле, а как это сделать? Не покажите ли примером?

[Stilet]

Да запросто:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    Image1: TImage;
    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 ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ScrollBox2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

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:=TWinControl(Target);
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
end;

procedure TForm1.ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
end;

procedure TForm1.ScrollBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
end;

end.

Обрати внимание на один момент - для правильного переноса нужно реализовать нужные обработчики событий под себя, поэтому не удивляйся - они у меня хоть пустые, но задействованные, без них ДрагДроп неполноценен.

Самое главное - TImage(Sender).Parent:=TWinControl( Target); банальное переопределение родителя для Image

Не забудь для Image в свойствах выставить DragMode:=dmAutomatic
Ну как бы ниче не забыл...

[dmitriegorovih]

А как теперь спомощью этого перетакскивать синхронно картинку с мышью???

[Stilet]

спомощью этого перетакскивать синхронно картинку с мышью???

э-э-э... А можно вопрос переформулировать специально для сельских дубков, ато мы сами не месные, да на грош учены.

[dmitriegorovih]

А можно вопрос переформулировать специально для сельских дубков

Ну вот смотрите

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

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

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
end;

procedure TForm1.ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
end;

procedure TForm1.ScrollBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//
end;

С помощью какой процедуры можно перетаскивать картинку ну как у меня было она перетаскивалась синхронно с мышкой.

[Stilet]

С помощью какой процедуры можно перетаскивать картинку

Прощу прощения но по прежнему не понимаю вопроса...
Обработчики что я привел все хором составляют механизм перетаскивания, и обязаны быть в коде даже пустыми, я потому некоторые из них закоментировал но оставил ибо без них перетаскивание не пойдет верным путем

перетаскивалась синхронно с мышкой

Подожди, ты имеешь ввиду таскать контрол аки окно? Схватил и пока держишь контрол идет за мышой?

[dmitriegorovih]

Подожди, ты имеешь ввиду таскать контрол аки окно? Схватил и пока держишь контрол идет за мышой?

Ну конечно берёшь и таскаешь за сабой))

[DIgorevich]

А Delphi World для кого существует?

procedure TForm1.Button1MouseDown(Sender: TObject; Button:
  TMouseButton; Shift: TShiftState; X, Y: Integer);
{$IFNDEF WIN32}
var
  pt: TPoint;
{$ENDIF}
begin
  if ssCtrl in Shift then
  begin
    ReleaseCapture;
    SendMessage(Button1.Handle, WM_SYSCOMMAND, 61458, 0);
{$IFNDEF WIN32}
    GetCursorPos(pt);
    SendMessage(Button1.Handle,
      WM_LBUTTONUP,
      MK_CONTROL,
      Longint(pt));
{$ENDIF}
  end;
end;

Действует при зажатом левом контроле