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

[hathor]

Die Function lockWindowUpdate ist in der Unit Windows.

Ein PASSWORD-Schutz ist einfach:

Delphi-Quellcode:

var s : String;

procedure TForm1.Button9Click(Sender: TObject);
begin
if Edit1.text='' then Exit;
s:=Edit1.text; // Passwort eingeben und MERKEN !
Edit1.text:='';
 lockWindowUpdate(self.handle); // LOCK
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
if Edit1.text='' then Exit;
if s=Edit1.text then
 lockWindowUpdate(0); // UNLOCK
end;