Bileşenden Tutarak formu sürükleme.

[tuna]

Arkadaşlar merhaba.
Formun üzerinde label olduğunu düşünün. Ben bu labeli tutup sürüklemeye çalıştığımda formun sürüklenmesini istiyorum. Yani nasıl form penceresinden tutup sürüklediğimiz zaman formun ekrandaki yeri değişiyor.
Aynı şekilde ben formun içindeki label nesnesinden tutup formu sürüklemek istiyorum.
Nasıl yaparım. Teşekürler.

[m_ekici]

Form üzerindeki tüm componentlerin onMouseDown olayını aşağıdaki paragrafa yönlendir.

Kod: Tümünü seç

procedure TForm8.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
sc_DragMove=$F012;
begin
ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND,sc_DragMove,0);
end;

[akdatilla]

Kod: Tümünü seç

var
   oldx,oldy:integer;
   onmdn:Boolean=False;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     if shift=[ssLeft] then
     begin
          if onmdn then
          begin
               Left:=left+(Label1.left+x-oldx);
               top:=top+(Label1.Top+y-oldy);
          end else
          begin
               onmdn:=true;
               oldx:=Label1.left+x;
               oldy:=Label1.Top+y;
          end;
     end else onmdn:=False;
end;