|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.620 Beiträge
Delphi 12 Athens
|
AW: SystemMenu Problem
5. Aug 2011, 15:36
Kein Problem:
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
|