Image basılı tutarak nesneyi taşıma

[cihat_yildiz]

İyi gunler arkadaşlar.ımage ekledim resmi, mause a basarak başka bir yere taşımak istiyorum.dediğim taşıma olayını butonla yaptım fakat ımage le olmuyor.buton1 yerine ımage 1 yazıyorum çalışmıyor.yardım ederseniz sevinirim.
Const
Tasi=$F012;

Begin
ReleaseCapture;
Button1.Perform(WM_SYSCOMMAND,Tasi,0);
end;

[cozturk]

Resmin MouseDown olayını aşağıdaki gibi düzenleyelim
Bu şekilde çalışıyor:

Kod: Tümünü seç

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Form1.perform(WM_SYSCOMMAND, $F012, 0);
end;

[cihat_yildiz]

ya kardeş bu formuda sürüklüyor.benim istediğim form içinde resmi sürüklemek

[KoPilot]

İmageı bir panelin üzerine koy,border stilini none yap ve paneli sürükle...

[Commandx]

DragMode = DmAutomatic
DragKind = Dkdock
yapsanız işinizi görürmü bilemiyorum ama olur sanırım

[zengin]

s.a

bir panel koyun ve sürükleyin

Kod: Tümünü seç

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Releasecapture;
(sender as TWincontrol).perform(wm_syscommand,$F012,0);
end;

kolay gelsin

[Commandx]

Aradığınız şöyle bişeydi sanırım

[orhancc]

Resmin MouseDown olayını aşağıdaki gibi düzenleyelim
Bu şekilde çalışıyor:

Kod: Tümünü seç

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Form1.perform(WM_SYSCOMMAND, $F012, 0);
end;

Form1 yerine image componentinin adını yaz düzelir