Hier ist noch eine Möglichkeit:
Delphi-Quellcode:
procedure SetCloseButton (aForm: TForm; aEnabled: Boolean);
const
cFlags : array [Boolean] of Cardinal = (MF_GRAYED, MF_ENABLED);
var
Menu : THandle;
begin
Menu := GetSystemMenu(aForm.Handle, False);
if (Menu <> 0) then
EnableMenuItem(Menu, SC_CLOSE, MF_BYCOMMAND or cFlags[aEnabled]);
end;
Gruß Hawkeye