Beenden-Button in der Titelleiste deaktivieren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Um den Beenden-Button in der Titelleiste (üblicherweise das 'X') auszublenden bzw. zu deaktivieren, müssen Sie den entsprechenden Menüpunkt aus dem Systemmenü der Anwendung löschen:
procedure TForm1.FormCreate(Sender: TObject);
var
h: THandle;
begin
h := GetSystemMenu(Handle, False);
if h <> 0 then
begin
DeleteMenu(h, SC_CLOSE, MF_BYCOMMAND);
DrawMenuBar(Handle);
end;
end;
Die Anweisung DrawMenuBar ist notwendig, damit die Titelleiste neu gezeichnet wird und die Änderungen somit sichtbar werden.Die Anwendung lässt sich weiterhin mit ALT+F4 beenden.