Hallo.

Ich möchte, dass man das MainMenu oder PopUpMenu in der Titelleiste bei rechtem Mausklick sieht.

Ich kann mich nicht sonderlich gut ausdrücken, deshalb hier ein Anhang!

Es wird doch bereits mit der rechten Maustaste angezeigt

Ja, und wie kann ich dort einen Unterpunkt erstellen?

Sag das doch gleich

zusammenfalten · markieren

Delphi-Quellcode:

private
 procedure SysCommand(var Msg: TMessage); message wm_SysCommand;
...
procedure TForm1.FormCreate(Sender: TObject);
var Menu: THandle;
begin
 Menu := GetSystemMenu(Handle, False);
 ModifyMenu(Menu, sc_Close, mf_ByCommand, sc_Close, 'E&xit'#9'Alt+F4');
 AppendMenu(Menu, mf_Separator, 0, #0);
 AppendMenu(Menu, mf_ByCommand, 100, '&huhu...');
 AppendMenu(Menu, mf_ByCommand, 101, '&kuckuck');
end;
 
procedure TForm1.SysCommand(var Msg: TMessage);
begin
 inherited;
 if Msg.wParam = 100 then ShowMessage('HuHu');
 if Msg.wParam = 101 then ShowMessage('Kuckuck');
end;

Dangäääääschööööööön