nochmal mousemove

[Tschief]

Hallo!

Ich bin absoluter Delphi-Neuling und hätte eine Frage zu dem schon oft behandelten Thema mousemove

Ich wäre froh wenn mir jemand einen Hinweis geben könnte wieso die Koordinaten des Mauszeigers beim Drücken auf den Button in den beiden Labels angezeigt werden und beim "Mousemove" nicht. Sollte nicht bei jeder Bewegung der Maus die aktuellen Koordinaten in die Label 3 und 4 geschrieben werden?

Schonmal Vielen Dank!

Delphi-Quellcode:

unit Mauskoordinaten;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
P: TPoint;

begin
  GetCursorPos(P);
  Label3.Caption := 'X: ' + InttoStr(P.x);
  Label4.Caption := 'Y: ' + InttoStr(P.y);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
P: TPoint;

begin
  GetCursorPos(P);
  Label1.Caption := 'X: ' + InttoStr(P.x);
  Label2.Caption := 'Y: ' + InttoStr(P.y);
end;

end.