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.