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