Einzelnen Beitrag anzeigen

TUX_der_Pinguin

Registriert seit: 1. Jun 2005
Ort: Anholt (NRW)
608 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: Aufruf des Systemmenü eines Fensters verhindern

  Alt 17. Feb 2017, 14:20
Na gut dann bitte..

Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var
  Menu: HMENU;
  MenuItems: Integer;
  i: Integer;
begin

  Menu := GetSystemMenu(Handle, false);
  if Menu <> 0 then
  begin
    MenuItems := GetMenuItemCount(Menu);
    if MenuItems <> 0 Then
      for i := MenuItems - 1 DownTo 0 do
        RemoveMenu(Menu, i, MF_BYPOSITION);
  end;
end;
Wenn du das Window trotzden verschieben möchtest dann ändere einfach die
DownTo 0 zu 2

Dann geht zwar das Menu wieder auf aber nur mit zwei Einträgen.
Wiederherstellen / Verschieben.

Nebenbei ich musste auch des Öfteren MS in Anspruch nehmen
Man bekommt nicht überall alles umsonst und muss es sich erarbeiten.
Aber sei's drum.

gruss

Ist das Menü weg: JA
Bekommt das UNSICHTBARE Menü immer noch den Focus: JA
Muss ich immer noch ZWEIMAL die ESC-Taste drücken um das Formular zu schließen: JA
Ist es das was ich will: NEIN

Es tut mir leid das das vielleicht etwas harsch wirkt, aber das ist doch genau das wo von ich die ganze Zeit spreche das es zwar Funktioniert aber nicht so wie ich das will. Vielleicht reden wir auch an einander vorbei.
  Mit Zitat antworten Zitat