| |
|
|
Dieter Zornow | ici la fois un Minimalbeispiel. chez mir erscheint cela menu seulement einmal et ensuite nie plus. allez weder avec XProfan X2 encore avec XProfan11. Am Clicked liegt es aussi pas muss am Trackmenu() liegen. cela vieille Trackmenu x,y allez aussi pas. Hat quelqu'un une concept ? KompilierenMarqueSéparationCLS
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 | un avec CreateMenu erzeugtes menu ist temporär et existiert seulement jusqu'à zum TrackMenu. (cela était im Übrigen déjà toujours so!)
Salut 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 | eh, merci, J'ai eu glatt oublier qc, si on long rien plus gemacht hat un Hinweis dans qui Aider wäre mais aussi pas mal, pour 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 ▲ |
|
|
|