Den "X"-Button in der Form deaktivieren

Thema durchsuchen

Ansicht

Themen-Optionen

Den "X"-Button in der Form deaktivieren

Ein Thema von BAMatze · begonnen am 7. Okt 2008 · letzter Beitrag vom 7. Okt 2008

Vorheriger Beitrag

Nächster Beitrag

andyvdeu

Registriert seit: 8. Dez 2004
Ort: Dietmannsried
20 Beiträge

Delphi 12 Athens

Re: Den "X"-Button in der Form deaktivieren

7. Okt 2008, 11:18

Vielliecht hilft das ?

zusammenfalten · markieren

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;