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

[Motzi]

Da lässt sich das Fenster aber trotzdem immer noch per Alt+F4 schließen... daher sollte man das noch einbauen:

Delphi-Quellcode:

SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_NOCLOSE); // deaktivieren

SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) and not CS_NOCLOSE); // aktivieren