Windowstasten sperren

[Steve]

Servus,

das mit ALT+F4 bekommst Du ganz einfach in den Griff, z.B. so:

Delphi-Quellcode:

VAR
  Schliessen : Boolean;
{...}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  { Fenster nur bei Klick auf Button Schließen! }
  Action := caNone;
  IF Schliessen THEN Action := caFree;
end;

{ **************************************************************************** }

procedure TForm1.BtnClick(Sender: TObject);
begin
  { Gibt an, dass das Fenster nun geschlossen werden darf }
  Schliessen  := TRUE;
  Close;
end;

Dann ist das Schließen über die Titelzeile halt auch nimmer möglich, sondern Du musst selber nen Button, Menüpunkt oder sonstwas dafür bereitstellen.
[edit]Oder Du kannst natürlich "Action" auch davon abhängig machen, was das Prog grade macht usw... Bist da bestimmt flexibel [/edit]
Mfg
Stephan