Dieses Programm zeigt die Aktuelle Position des Mauscursors an, sowie ob eine Taste gedrückt ist:

[code:1]
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
edit3.Text:='unten';
end;


procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
edit3.Text:='oben';
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
edit1.Text:=inttostr(X);
edit2.Text:=inttostr(Y);
end;


procedure TForm1.FormActivate(Sender: TObject);
begin
edit3.Text:='oben';
end;

end.
[/code:1]