[VeYSeL]

Nesnenin OnMouseMove event'ına

Kod:

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

yazılması yeterlidir.

[Cihan]

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;

[VeYSeL]

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

[onur]

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

[Cihan]

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

[MuratS]

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ı

[onur]

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

[MuratS]

ee yerse...

[VeYSeL]

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