Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Close-Button (X) deaktivieren?


Wolle92 - Mo 26.05.08 20:00
Titel: Close-Button (X) deaktivieren?
Hallo,

ich meine, das irgendwo schon einmal gelesen zu haben, finde es aber leider nicht mehr...
Wie kann man bei den Forms den Close-Button deaktivieren?
Also nicht verschwinden lassen, nur deaktivieren...


Wolle92 - Mo 26.05.08 20:13
habs jetzt mit folgendem Code (doch gefunden) gemacht:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
var AppSysMenu: THandle;
begin
  Form7.Button3.Enabled := false;
  AppSysMenu:=GetSystemMenu(Form7.Handle,False);
  EnableMenuItem(AppSysMenu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
  Form7.Show;


Und um den Button wieder zu aktivieren, einfach das or MF_GRAYED wegmachen...


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!