| |
| |
|
Dieter
Zornow | here time one Minimalbeispiel. by me appear the Menu only once and then never More. goes weder with XProfan X2 yet with XProfan11. on the Clicked lying it neither must on the Trackmenu() lying. the old Trackmenu x,y goes neither. has someone a idea ?
CompileMarkSeparationCLS
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 | 05/02/11 ▲ |
|
| |
|
|
RGH | One with CreateMenu erzeugtes Menu is temporär and existing only until TrackMenu. (the was in the Übrigen always so!)
Greeting
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 | 05/02/11 ▲ |
|
| |
|
|
Dieter
Zornow | Oh, thanks, I had saponaceous forget, if one long nothing more made has 
One Info in the Help would but neither badly, for Vergessliche  |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 05/02/11 ▲ |
|
| |
|
(909)
Deutsch
English
Français
Español
Italia