SystemMenu Problem

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von delphinub23 · begonnen am 5. Aug 2011 · letzter Beitrag vom 5. Aug 2011

Vorheriger Beitrag

Nächster Beitrag

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge

Delphi 12 Athens

AW: SystemMenu Problem

5. Aug 2011, 14:36

Kein Problem:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFormMain.SetCanCloseApplication(const AValue: Boolean);

var

  AppMenu: THandle;

  CloseFlags: UINT;

begin

  FApplicationCanClose := AValue;

  CloseFlags := MF_BYCOMMAND;

  if FApplicationCanClose then

    CloseFlags := CloseFlags or MF_ENABLED

  else

    CloseFlags := CloseFlags or MF_DISABLED;

  AppMenu := GetSystemMenu(Self.Handle, FALSE);

  if AppMenu <> 0 then

    EnableMenuItem(AppMenu, SC_CLOSE, CloseFlags);

end;

Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen