wie deaktiviere ich die maus auf meinem programm

[DerHobel]

hi
ich würde gern die maus komplett von meinem programm entfernen also wenn mann mit der maus aufs programm klickt soll nix passieren und sie soll auch nicht darauf sichtbar sein wenn man drüberzieht am wichtigsten wenn man auf das programm klickt wenn es inaktiv ist soll es nicht wieder aktiv werden

geht so was und wenn ja wie ?? :-)

[Luckie]

Wäre dir mit

Delphi-Quellcode:

Form1.Enabled := True;

gedient?

Wobei sich nir der Sinn deines Vorhabens verschließt. Wie soll das Programm je wieder sauber beendet werden können? :roll:

[DerHobel]

das hab ich probiert das geht net man soll halt nur tastatur und die maus soll halt komplett wech sein :)

[sakura]

Komplett deaktivieren :gruebel: Da fällt mir keine Lösung ein - aber wenn es reicht, daß der Mauszeiger in Deiner Anwendung nicht zu sehen ist, dann sollte folgendes helfen:

Delphi-Quellcode:

Screen.Cursor := crNone;

...:cat:...

[DerHobel]

danke sakura das geht ein prob weniger :)

muss doch machbar sein das das programm den mausklick einfach ignoriert und nix macht

[toms]

Hi,

Könntest mal so probieren (ist ein wenig lange...) oder mit einem lokalen Maus-Hook.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);
    procedure WMNCRBUTTONDOWN(var msg: TMessage); message WM_NCRBUTTONDOWN;
    procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCLBUTTONDOWN;
    procedure WMNCLBUTTONDBLCLK(var msg: TMessage); message WM_NCLBUTTONDBLCLK;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
    case Msg.Message of
      WM_MOUSEFIRST..WM_MOUSELAST:
        Handled := True
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppOnMessage;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Application.OnMessage := nil;
end;

procedure TForm1.WMNCRBUTTONDOWN(var msg: TMessage);
begin
  if msg.wParam = HTCAPTION then
   msg.Result := 0
  else
  inherited;
end;

procedure TForm1.WMNCLBUTTONDOWN(var msg: TMessage);
begin
  if msg.wParam = HTCAPTION then
   msg.Result := 0
  else
  inherited;
end;

procedure TForm1.WMNCLBUTTONDBLCLK(var msg: TMessage);
begin
  if msg.wParam = HTCAPTION then
   msg.Result := 0
  else
  inherited;
end;

[DerHobel]

hmm der mausklick wird zwar ignoriert aber das programm wird trotzdem wieder aktiv wenn man drauf klickt