Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

Teknik (Bilişim) Delphi Nesneyi taşınabilir yapmak
#1

Nesnenin OnMouseMove event'ına

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

yazılması yeterlidir.

DijitalTurk Toplu.Biz
Keşfedebildiğin kadar özgürsün.. (VeYSeL)
Cevapla
#2

(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;
Ara
Cevapla
#3

(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 :]

DijitalTurk Toplu.Biz
Keşfedebildiğin kadar özgürsün.. (VeYSeL)
Cevapla
#4

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 :]:]
Ara
Cevapla
#5

(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 :]
Ara
Cevapla
#6

(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ı
Ara
Cevapla
#7

ohhhh meydan boşşşş sıkın bakalım
Ara
Cevapla
#8

ee yerse...
Ara
Cevapla
#9

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

DijitalTurk Toplu.Biz
Keşfedebildiğin kadar özgürsün.. (VeYSeL)
Cevapla


Benzer Konular...
Konu: / Yazar Cevaplar: Gösterim: Son Mesaj
Son Mesaj Yazar: GsrEra
01-10-2013, 07:55 AM

Hızlı Menü:


Bu konuyu görüntüleyen kullanıcı(lar): 2 Ziyaretçi