Maus abschalten je nach Form

[Sprint]

Zitat von Hansa:

Ich müßte nun also die Maus in bestimmten Formularen abschalten können, aber nicht immer.

Kannst es ja so machen das wenn Tastatureingaben kommen die Maus ausgeblendet wird und beim Bewegen der Maus der Mauszeiger wieder eingeblendet wird.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{--------------------------------------------------------------------------------------------------}

procedure TForm1.FormCreate(Sender: TObject);
begin

  Self.KeyPreview := True;

end;

{--------------------------------------------------------------------------------------------------}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin

  with Screen do
    if Cursor = crDefault then
      Cursor := crNone;

end;

{--------------------------------------------------------------------------------------------------}

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

  with Screen do
    if Cursor = crNone then
      Cursor := crDefault;

end;

{--------------------------------------------------------------------------------------------------}

end.