panel sürükleme

[murtishow76]

panel sürükleme sırasında ekran kartı sürücüsü yüklenmemiş gibi titreyerek gidiyor.. bunun çözümü nedir?

procedure TForm9.Panel_DublorMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

Panel_Dublor.Left := OrjImageFarkPoint.X + X - OrjImageMousePoint.X - xiMarjinX;
Panel_Dublor.Top  := OrjImageFarkPoint.Y + Y - OrjImageMousePoint.Y - xiMarjinY;
end;

[ihalilcoban]

Merhaba.

procedure TAna_Form.Hatirlatma_PanelMouseDown(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Const
Tasi=$F012;
begin
ReleaseCapture;
Hatirlatma_Panel.Perform(WM_SYSCOMMAND,Tasi,0);
end;

Ben bu şekilde kullanıyorum ve belirttiğiniz sorun oluşmuyor.

[murtishow76]

mrmarman değerli hocam "Mouse_ile_Image_Tasima_Ornegi" adlı projenizi buldum onu benim projeme entegre edecemki çalışma prensibi aynı ancak yukarda bahsettiğim sorun mevcut idi..
ihlalcoban adli kullancının vermiş olduğu kod ile sorun ortdan kalkıyor ancak bu sefer image yer değiştirme işlemi gerçekleşmiyor

[mrmarman]

Resim taşınan formun OnCreate eventine 

  self.DoubleBuffered := True;

satırını ekleyin. Sorununuza bir nebze faydası olacaktır. Bir de taşınan resimlerin boyutlarının küçük olmasını tercih etmenizi salık veririm.

[murtishow76]

(12-10-2018, Saat: 16:56)mrmarman Adlı Kullanıcıdan Alıntı: Resim taşınan formun OnCreate eventine 

  self.DoubleBuffered := True;

satırını ekleyin. Sorununuza bir nebze faydası olacaktır. Bir de taşınan resimlerin boyutlarının küçük olmasını tercih etmenizi salık veririm.

çok teşkkür ederim