Teknik (Bilişim) Delphi Nesneyi taşınabilir yapmak - Yazdırılabilir Sürüm

+- Gebze Motosiklet Kulübü Forumları (https://gebzemoto.com/forum)
+-- Forum: GMK Kafe (https://gebzemoto.com/forum/forumdisplay.php?fid=1)
+--- Forum: Sohbet & Muhabbet (https://gebzemoto.com/forum/forumdisplay.php?fid=3)
+---- Forum: Dökümanlar (https://gebzemoto.com/forum/forumdisplay.php?fid=15)
+---- Konu: Teknik (Bilişim) Delphi Nesneyi taşınabilir yapmak (/showthread.php?tid=2474)

---

Delphi Nesneyi taşınabilir yapmak - VeYSeL - 06-24-2013

Nesnenin OnMouseMove event'ına


yazılması yeterlidir.

---

Cvp: Delphi Nesneyi taşınabilir yapmak - Cihan - 06-24-2013

(06-24-2013, 10:33 AM)VeYSeL Adlı Kullanıcıdan Alıntı:  Nesnenin OnMouseMove event'ına

Kod:

Releasecapture;
(sender as TWincontrol).perform(wm_syscommand,$F012,0);

yazılması yeterlidir.

yanlış...doğrusu

type
TForm1 = class(TForm)
{...}
procedure MoveControl(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private-Declarations }
public
{ Public-Declarations }
end;
end;

---

Cvp: Delphi Nesneyi taşınabilir yapmak - VeYSeL - 06-24-2013

(06-24-2013, 10:34 AM)Cihan Adlı Kullanıcıdan Alıntı:  

(06-24-2013, 10:33 AM)VeYSeL Adlı Kullanıcıdan Alıntı:  Nesnenin OnMouseMove event'ına

Kod:

Releasecapture;
(sender as TWincontrol).perform(wm_syscommand,$F012,0);

yazılması yeterlidir.

yanlış...doğrusu

type
TForm1 = class(TForm)
{...}
procedure MoveControl(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private-Declarations }
public
{ Public-Declarations }
end;
end;

abi gönderdiğin kod sadece kod yazmaya başlarken standart tanımlamının yapıldığı blog..

Türkçe açıklaması: orada bir şey yok :]

---

RE: Delphi Nesneyi taşınabilir yapmak - onur - 06-24-2013

vaaayyyyyy eczacı bilgi işlemciyee kafa tutuyor ... şimdi veyselden bir gaz bombası bekliyoruz.

cihan abi sen nasıl başkana kafa tutar lafının üstüne laf sölersin. Başkan 3-5 çapulcuya meydanı bırakmaz :]:]

---

Cvp: Delphi Nesneyi taşınabilir yapmak - Cihan - 06-24-2013

(06-24-2013, 10:37 AM)VeYSeL Adlı Kullanıcıdan Alıntı:  

(06-24-2013, 10:34 AM)Cihan Adlı Kullanıcıdan Alıntı:  

(06-24-2013, 10:33 AM)VeYSeL Adlı Kullanıcıdan Alıntı:  Nesnenin OnMouseMove event'ına

Kod:

Releasecapture;
(sender as TWincontrol).perform(wm_syscommand,$F012,0);

yazılması yeterlidir.

yanlış...doğrusu

type
TForm1 = class(TForm)
{...}
procedure MoveControl(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private-Declarations }
public
{ Public-Declarations }
end;
end;

abi gönderdiğin kod sadece kod yazmaya başlarken standart tanımlamının yapıldığı blog..

Türkçe açıklaması: orada bir şey yok :]

olm. ne farkeder kimse bi ...k anlamıyor zaten :]

---

Cvp: Delphi Nesneyi taşınabilir yapmak - MuratS - 06-24-2013

(06-24-2013, 10:34 AM)Cihan Adlı Kullanıcıdan Alıntı:  

(06-24-2013, 10:33 AM)VeYSeL Adlı Kullanıcıdan Alıntı:  Nesnenin OnMouseMove event'ına

Kod:

Releasecapture;
(sender as TWincontrol).perform(wm_syscommand,$F012,0);

yazılması yeterlidir.

yanlış...doğrusu

type
TForm1 = class(TForm)
{...}
procedure MoveControl(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private-Declarations }
public
{ Public-Declarations }
end;
end;

abi hata var,
procedure MoveControl(Sender: ZObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); olacaktı

---

RE: Delphi Nesneyi taşınabilir yapmak - onur - 06-24-2013

ohhhh meydan boşşşş sıkın bakalım

---

RE: Delphi Nesneyi taşınabilir yapmak - MuratS - 06-24-2013

ee yerse...

---

RE: Delphi Nesneyi taşınabilir yapmak - VeYSeL - 06-24-2013

Cihan abi istesin Delphi ye çay demletirim :çiçek:

---