Maus in Form festhalten (Käfig)

Computer: Software & Programmierung Delphi & Pascal
#1

Hallo,

ich habe ein kleines Problem.

Ich habe ein Programm geschrieben, das nach einem Passwort fragt.
Wenn man es richtig eingibt schliesst sich das Programm. Den Taskmanager hab ich auch schon deaktiviert. Man kann das Programm auch nicht schliessen ,da der Schliessen-Button deaktiviert ist. Man könnte es aber einfach irnorieren, in dem man auf den Desktop klickt.
So bis dahin hab ich alles hin gekriegt. Aber ich möchte jetzt das man die Form nicht mit der Maus verlassen kann. Sodass erst das Passwort richtig eingegeben werden muss

Gibt es eine Möglichkeit, die Maus auf der Form festzuhalten(wie in einem Käfig)?

Ich hoffe ihr versteht mich.

Vielen Dank schon mal voraus

Gruß Tristan

#2

Nichts leichter als das …
Hallo Tristan,

procedure TForm1.FormActivate(Sender: TObject);
var
rec: TRect;
begin
rec.Left:= Left;
rec.Top:= Top;
rec.Right:= Left + Width;
rec.Bottom:= Top + Height;
ClipCursor(@rec);
end;

// Cursor wieder freigeben
procedure TForm1.Button1Click(Sender: TObject);
begin
ClipCursor(Nil);
end;

Allerdings muss der BorderStyle der Form auf bsNone gesetzt werden. Denn wenn das Fenster bewegt oder resized wird, ist der Cursor wieder frei …

Manfred

#3

Hallo.

Wie man die Maus einsperrt, hat man dir ja schon geantwortet.

Ich habe ein Programm geschrieben, das nach einem Passwort
fragt.
Man könnte es aber einfach irnorieren, in dem
man auf den Desktop klickt.

Hast du auch den Tabwechsel per Alt+Tab und das Aufrufen des Startmenüs mit der Windows-Taste oder Strg+Esc verhindert?

Sebastian.

#4

Vielen Dank Manfred…Sehr gute, schnelle und präzise Antwort.

An Sebastian:
Nein…habe ich leider nocht nicht.
Wie wäre das denn zu realisieren?

schonmal vielen Dank

Gruß Tristan

#5

Hallo.

An Sebastian:
Nein…habe ich leider nocht nicht.
Wie wäre das denn zu realisieren?

Da stellst du eine gute Frage. Kann ich dir auch nicht sagen, sowas habe ich noch nie gemacht. Kam mir nur in den Sinn, als ich deine Frage las. Vielleicht weiß da jemand anderes was zu.

Sebastian.