Başlangıç > Kodlar > Delphi ile Formda bulunan nesneleri fare ile taşıma

Delphi ile Formda bulunan nesneleri fare ile taşıma


Formda bulunan nesneleri mouse ile taşıma.

Taşımak istediğiniz nesnenin MouseDown olayını aşağıdaki örnekte olduğu gibi yönetebilirsiniz.

Procedure Tform1.Button1MouseDown(sender:TObject;Button:TMouseButton;Shift:TshiftState;x,y:Integer);

Const
Tasi=$F012;

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

İmdat ACAR


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: