Schließenbutton deaktivieren

[Sharky]

Hai stonimahoni,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXIS".

Die Fehler kommen weil du den Code in eine Methode deines Formulares einbinden musst. Das geht z.B. so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   hMen  : HMENU;
Begin
   //Ausschalten
   hMen   := GetSystemMenu(Self.Handle, LongBool(0));
   EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   hMen  : HMENU;
begin
   //Einschalten
   hMen   := GetSystemMenu(Self.Handle, LongBool(0)); 
   EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND and not MF_GRAYED);
end;

Also einfach 2 Buttons auf deine Form und jeweils den Code in das .OnClick Ereigniss der Buttons setzen.