Object Pascal, weitere Menüebene in Windowsprogramm

jrx

Mitglied
Hallo Kollegen

Ich schreibe ein kleines Programm und benutze
die relativ rudimentär erklärten WinApi funktionen von Freepascal.
Ich bin beim Menü:
Fragment:
Code:
	If hWindow<>0 Then Begin
		Menu := CreateMenu;
		SubMenu := CreateMenu;
		AppendMenu(Submenu,MF_STRING,101,'&New...');
		AppendMenu(Submenu,MF_STRING,102,'&Open...');
		AppendMenu(Submenu,MF_SEPARATOR,0,Nil);
		AppendMenu(SubMenu,MF_String,103,'E&xit');
		AppendMenu(Menu,MF_POPUP,SubMenu,'&File');
...
Kann ich eigentlich eine weitere Ebene einfügen?
Im Internet hab ich nichts gefunden. Auf friends_of_fpc gibts ein Tutorial von delax, was aber aufhört ohne sich weiter zu vertiefen.
Einen "Menügenerator" a lá Delphi oder Lazarus möchte ich aus Komplexitätsgründen nicht nutzen.
Vielen Dank.
jrx
 
Zurück