Gebze Motosiklet Kulübü Forumları

Nesnenin OnMouseMove event'ına


yazılması yeterlidir.

(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;

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

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

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

(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ı

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

ee yerse...

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