Schließen-Button aktivieren/deaktivieren

[alcaeus]

Also, ich schmücke mich nicht mit fremden Federn, deshalb:
Dieser Code stammt von LCS, ich dachte mir nur, er sollte in die CodeLib.
Einen Screenshot zum Ergebnis gibt es natürlich auch, und hier ist der Code:

Delphi-Quellcode:

var 
  hMen  : HMENU; 
begin
  //Ausschalten
  hMen   := GetSystemMenu(Self.Handle, LongBool(0));
  EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);

  //Einschalten
  hMen   := GetSystemMenu(Self.Handle, LongBool(0));
  EnableMenuItem(hMen, SC_CLOSE, MF_BYCOMMAND and not MF_GRAYED);
end;

Greetz
alcaeus