[ÇÖZÜLDÜ] basılı tutma

[info@guzelceker.com]

procedure TForm1.Panel_DublorMouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer);
var clw,clh:integer;  MouseCoor:tpoint;
begin
  if ssLeft in shift then
  begin
  showmessage('d') ;

mouse bir kere  tıklandığındada message geliyo oysaki ben " mouse basılı ise " demek istiyorum

mousedown ve mouseup boolean değer atadıysamda çözemedim bir yerede hata yapıyorum ama nerde

[hi_selamlar]

(27-11-2019, Saat: 11:00)info@guzelceker.com Adlı Kullanıcıdan Alıntı:

procedure TForm1.Panel_DublorMouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer);
var clw,clh:integer;  MouseCoor:tpoint;
begin
  if ssLeft in shift then
  begin
  showmessage('d') ;

mouse bir kere  tıklandığındada message geliyo oysaki ben " mouse basılı ise " demek istiyorum

mousedown ve mouseup boolean değer atadıysamda çözemedim bir yerede hata yapıyorum ama nerde

Merhabalar,

Umarım yanlış anlamamışımdır ve kodlar işinize yarar.

var
       Form1: TForm1;
       pressed: boolean = false;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
       pressed := false;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
       p: Tpoint;
begin
       ClientToScreen(p);
       pressed := True;
        if pressed then
       begin
               if (X <= p.X) and (Y <= p.Y) then ShowMessage('Fare tıklandı!');
       end;
end;

Kolay gelsin.

[info@guzelceker.com]

(27-11-2019, Saat: 11:49)hi_selamlar Adlı Kullanıcıdan Alıntı:

(27-11-2019, Saat: 11:00)info@guzelceker.com Adlı Kullanıcıdan Alıntı:

procedure TForm1.Panel_DublorMouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer);
var clw,clh:integer;  MouseCoor:tpoint;
begin
  if ssLeft in shift then
  begin
  showmessage('d') ;

mouse bir kere  tıklandığındada message geliyo oysaki ben " mouse basılı ise " demek istiyorum

mousedown ve mouseup boolean değer atadıysamda çözemedim bir yerede hata yapıyorum ama nerde

Merhabalar,

Umarım yanlış anlamamışımdır ve kodlar işinize yarar.

var
       Form1: TForm1;
       pressed: boolean = false;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
       pressed := false;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
       p: Tpoint;
begin
       ClientToScreen(p);
       pressed := True;
        if pressed then
       begin
               if (X <= p.X) and (Y <= p.Y) then ShowMessage('Fare tıklandı!');
       end;
end;

Kolay gelsin.

dediğim bu değil

"MouseMove" olayında 

 if pressed =false then
begin
//işlemler 
end

aynı repeat untildeki gibi şart gerçekleşsede bir kere çalıştırıyor
yani mouseup ile pressed=true yapsamda mousemove işlem devam ediyor sonra duruyor //saliselik

[hi_selamlar]

(27-11-2019, Saat: 12:07)info@guzelceker.com Adlı Kullanıcıdan Alıntı:

(27-11-2019, Saat: 11:49)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

Umarım yanlış anlamamışımdır ve kodlar işinize yarar.

var
       Form1: TForm1;
       pressed: boolean = false;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
       pressed := false;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
       p: Tpoint;
begin
       ClientToScreen(p);
       pressed := True;
        if pressed then
       begin
               if (X <= p.X) and (Y <= p.Y) then ShowMessage('Fare tıklandı!');
       end;
end;

Kolay gelsin.

dediğim bu değil

"MouseMove" olayında 

 if pressed =false then
begin
//işlemler 
end

aynı repeat untildeki gibi şart gerçekleşsede bir kere çalıştırıyor
yani mouseup ile pressed=true yapsamda mousemove işlem devam ediyor sonra duruyor //saliselik

Merhabalar,

Yapmak istediğiniz tam olarak nedir?

- Panel taşıma?
- Panel taşımaya başlandığının tesbiti?
- Panel tıklandığında?
   ...
   ...

Detaylı olarak bilgi verirseniz daha faydalı olacaktır.

Kolay gelsin.

[info@guzelceker.com]

(27-11-2019, Saat: 12:15)hi_selamlar Adlı Kullanıcıdan Alıntı:

(27-11-2019, Saat: 12:07)info@guzelceker.com Adlı Kullanıcıdan Alıntı: dediğim bu değil

"MouseMove" olayında 

 if pressed =false then
begin
//işlemler 
end

aynı repeat untildeki gibi şart gerçekleşsede bir kere çalıştırıyor
yani mouseup ile pressed=true yapsamda mousemove işlem devam ediyor sonra duruyor //saliselik

Merhabalar,

Yapmak istediğiniz tam olarak nedir?

- Panel taşıma?
- Panel taşımaya başlandığının tesbiti?
- Panel tıklandığında?
   ...
   ...

Detaylı olarak bilgi verirseniz daha faydalı olacaktır.

Kolay gelsin.

panel taşıma ama biraz karışık işlemler başka bir metod deniycem

[hi_selamlar]

(27-11-2019, Saat: 12:22)info@guzelceker.com Adlı Kullanıcıdan Alıntı: panel taşıma ama biraz karışık işlemler başka bir metod deniycem

Merhabalar,

Yardım için talepte bulunup sonrasın da bu cevap,   ilginç.

Kolay gelsin.

[info@guzelceker.com]

(27-11-2019, Saat: 12:26)hi_selamlar Adlı Kullanıcıdan Alıntı:

(27-11-2019, Saat: 12:22)info@guzelceker.com Adlı Kullanıcıdan Alıntı: panel taşıma ama biraz karışık işlemler başka bir metod deniycem

Merhabalar,

Yardım için talepte bulunup sonrasın da bu cevap,   ilginç.

Kolay gelsin.

sorunumu anlatamadım eğer anlaşıldıysa ve çözüm varsa sıkıntı yok kullanırım kodu

[Tuğrul HELVACI]

(27-11-2019, Saat: 11:00)info@guzelceker.com Adlı Kullanıcıdan Alıntı:

procedure TForm1.Panel_DublorMouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer);
var clw,clh:integer;  MouseCoor:tpoint;
begin
  if ssLeft in shift then
  begin
  showmessage('d') ;

mouse bir kere  tıklandığındada message geliyo oysaki ben " mouse basılı ise " demek istiyorum

mousedown ve mouseup boolean değer atadıysamda çözemedim bir yerede hata yapıyorum ama nerde

type
  TKeyRecord = record
   Lo : Byte;
   Hi : Byte;
 end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
 if TKeyRecord(GetKeyState(VK_LBUTTON )).Hi = 255 then
   Caption := 'Mouse basılı'
 else
   Caption := 'Mouse basılı değil';
end;

[SimaWB]

info@guzelceker.com; önce açtığınız eski konularda size verilen cevapları sonuçlandırsanız ???
http://www.delphican.com/showthread.php?tid=4226
http://www.delphican.com/showthread.php?tid=4219
vs...

[info@guzelceker.com]

(27-11-2019, Saat: 13:19)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı:

(27-11-2019, Saat: 11:00)info@guzelceker.com Adlı Kullanıcıdan Alıntı:

procedure TForm1.Panel_DublorMouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer);
var clw,clh:integer;  MouseCoor:tpoint;
begin
  if ssLeft in shift then
  begin
  showmessage('d') ;

mouse bir kere  tıklandığındada message geliyo oysaki ben " mouse basılı ise " demek istiyorum

mousedown ve mouseup boolean değer atadıysamda çözemedim bir yerede hata yapıyorum ama nerde

type
  TKeyRecord = record
   Lo : Byte;
   Hi : Byte;
 end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
 if TKeyRecord(GetKeyState(VK_LBUTTON )).Hi = 255 then
   Caption := 'Mouse basılı'
 else
   Caption := 'Mouse basılı değil';
end;

çok tşk ederim .. oldu