| |
|
|
Dieter Zornow | Hier mal ein Minimalbeispiel. Bei mir erscheint das Menü nur einmal und dann nie mehr. Geht weder mit XProfan X2 noch mit XProfan11. Am Clicked liegt es auch nicht muss am Trackmenu() liegen. Das alte Trackmenu x,y geht auch nicht. Hat jemand eine Idee ? KompilierenMarkierenSeparierenCLS
CreateMenu
AppendMenu 100,"&Laden"
AppendMenu 101,"&Speichern"
AppendMenu 102,"Speichern &als"
Var b& = Create("Button",%hwnd,"Menü",10,10,80,25)
WhileNot %key = 2
waitinput
If Clicked(b&)
TrackMenu(10,33)
Case menuItem(100):Messagebox("","",0)
endif
endwhile
end
|
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 02.05.2011 ▲ |
|
|
|
|
RGH | Ein mit CreateMenu erzeugtes Menü ist temporär und existiert nur bis zum TrackMenu. (Das war im Übrigen schon immer so!)
Gruß Roland |
|
|
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 02.05.2011 ▲ |
|
|
|
|
Dieter Zornow | Oh, danke, hatte ich glatt vergessen, wenn man lang nichts mehr gemacht hat Ein Hinweis in der Hilfe wäre aber auch nicht schlecht, für Vergessliche |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 02.05.2011 ▲ |
|
|
|