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