Menü in der Titelleiste

[Kompon Ente]

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!

[s14]

Es wird doch bereits mit der rechten Maustaste angezeigt

[Kompon Ente]

Ja, und wie kann ich dort einen Unterpunkt erstellen?

[s14]

Sag das doch gleich

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;

[Kompon Ente]

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