Den "X"-Button in der Form deaktivieren

[andyvdeu]

Vielliecht hilft das ?

Delphi-Quellcode:

procedure DisableCaptionCloseButton(const FormHandle: THandle);
var
  hMnu: THandle;
begin
  hMnu := GetSystemMenu(FormHandle, FALSE);
  EnableMenuItem(hMnu, SC_CLOSE, SC_CLOSE or MF_GRAYED);
end;

procedure EnableCaptionCloseButton(const FormHandle: THandle);
var
  hMnu: THandle;
begin
  hMnu := GetSystemMenu(FormHandle, FALSE);
  EnableMenuItem(hMnu, SC_CLOSE, SC_CLOSE or MF_ENABLED);
end;

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]