Fare Hareketi Yakalamak : Mouse.CursorPos.X

[hi_selamlar]

(20-06-2024, Saat: 11:48)bydelphi Adlı Kullanıcıdan Alıntı:

(20-06-2024, Saat: 11:13)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

procedure WMMouseMove(var Msg: TWMMouseMove); message WM_MOUSEMOVE;

API ile denermisiniz lütfen. Umarım yardımcı olur.

Kolay gelsin.

Teşekkür ederim dostum ancak sadece form üzerinde algılıyor, form dışı desktop yok, acaba kullanımımda mı sorun var örnekleyebilir misin.

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
 TForm1 = class(TForm)
   procedure WMMouseMove(var Msg: TWMMouseMove); message WM_MOUSEMOVE;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMMouseMove(var Msg: TWMMouseMove);
begin
  Caption := msg.XPos.ToString  + ' - ' +  msg.YPos.ToString
end;

end.

Merhabalar,

   


  test.zip (Dosya Boyutu: 868 Bayt / İndirme Sayısı: 13)

Kolay gelsin.