Fenster, welches man nur durch eine Sache schließen kann

[Grayknife]

Hallo liebe DPler

Inzwischen bin ich nun schon schön weit mit meinem Schiffe versenken!

Jetzt möchte ich gerne eine Art Pause-Button hinzufügen, also wenn man zum Beispiel kurz auf die Toilette gehen muss, oder sich einen Kaffee holen möchte, oder einen Kuchen, oder eine Tomatensuppe, oder eine Flasche Wein, oder ein Handtuch, und und und

Dazu gibt es für jeden Spieler einen Knopf. Zuvor hat sich jeder Spieler einen Namen ausgesucht, sowie ein Passwort.
Dieses Passwort soll jetzt zur Geltung kommen. Wenn einer der Spieler seinen Pauseknopf betätigt, soll das Spiel angehalten werden, indem sich ein kleines Fenster öffnet, wo man nur sein Passwort eingeben kann und OK drücken kann. Jede Form, dieses Fenster anders zu schließen soll es nicht geben.
Versteht ihr wie ich das meine?
Gibt es sowas wie Inputbox, oder so was ähnliches, was speziell mein Problem lösen kann?

Grüße
Grayknife

[Popov]

Wie du schon richtig lagst - die Inputbox heißt InputBox

s := InputBox('Titel', 'Irgendein Text', 'Irgendein Inhalt oder leer');

[mm1256]

Hallo,

"InputBox" wird dir nicht weiter helfen. Es sei denn, du zeigst es in einer Schleife so lange an, bis das Passwort übereinstimmt. Das ist jedoch meiner Meinung nach schlechter Programmierstil und für den/die Spieler auch nicht hilfreich, denn der Abbrechen-Button ist dann zwar vorhanden, aber quasi ohne Funktion.

Was du brauchst ist ein Formular welches du modal anzeigst (ShowModal) wo du

- alle BorderIcons deaktivierst, damit das Fenster nicht mit der Maus geschlossen werden kann

- Das Ereignis "onKeyDown" oder "OnKeyUp" abfängst. Hier musst du verhindern, dass das Formular mit Alt+F4 bzw. Crtl+F4 geschlossen wird. Wenn F4 gedrückt wird, setzt du Key einfach auf $00;

Auf das Formular setzt du ein TEdit und einen Ok-Button. Im OnChange-Ereignis des TEdit setzt du "Enabled" des Buttons auf True, wenn das Passwort übereinstimmt.

[Sir Rufo]

Nur mal so auf die Schnelle:

Delphi-Quellcode:

procedure PasswordForm( const UnlockPassword : string );
var
  LForm : TPasswordForm;
begin
  LForm := TPasswordForm.Create( nil );
  try
    repeat
      LForm.ShowModal;
    until LForm.Password = UnlockPassword;
  finally
    LForm.Free;
  end;
end;

[himitsu]

Vielleicht noch einen Abbrechenbutton mit einbauen, sonst kommt man dort nie wieder raus, außer das ist so gewollt.

Delphi-Quellcode:

function PasswordForm(const UnlockPassword: string): Boolean;
var
  LForm: TPasswordForm;
begin
  LForm := TPasswordForm.Create(nil);
  try
    //Result := (LForm.ShowModal = mrOK) and (LForm.Password = UnlockPassword);  // nur einmal fragen, ohne Schleife 
    while (LForm.ShowModal = mrOK) and (LForm.Password <> UnlockPassword) do ;
    Result := (LForm.ModalResult = mrOK) and (LForm.Password = UnlockPassword);  // Result := LForm.Password = UnlockPassword;
  finally
    LForm.Free;
  end;
end;

[Sir Rufo]

Zitat von himitsu:

Vielleicht noch einen Abbrechenbutton mit einbauen, sonst kommt man dort nie wieder raus, außer das ist so gewollt.

Es ist so gewollt

Zitat von Grayknife:

Jede Form, dieses Fenster anders zu schließen soll es nicht geben.

[himitsu]

Ich würde das aber eher als "Bug" bezeichnen und dann den Taskmannager bitten es zuzumachen.

[Sir Rufo]

Zitat von himitsu:

Ich würde das aber eher als "Bug" bezeichnen und dann den Taskmannager bitten es zuzumachen.

Wieso ist es ein Bug, wenn die Anforderung genau so lautet?

Man kann sich fragen ob die Anforderung sinnvoll ist, aber ein Anwendungs-Bug ist das definitiv nicht, eher ein Design-Fehler bei der Anforderung

[himitsu]

OK, so ausgedrückt klingt es besser.

[mm1256]

Na ja, ich denke auch, weder Anwendungs-Bug noch Design-Fehler. Im Gegenteil, finde es als sinnvoll wenn ich als Spieler mal eine Pause (aus welchen Gründen auch immer) einlegen möchte/muss, dann sollen die Mitspieler nicht ohne mich weiter spielen können, und/oder sich irgendwelche anderen Vorteile von meiner Abwesenheit haben.