 Jac de Lad | je stand la fois wieder avant dem Problem, dass je zwar den Itemwechsel dans einer Gridbox pour waitinput auslesen peux, mais seulement, si il avec einem Mausklick erfolgte. pas mais beim Scrollen avec den Pfeiltasten. qui folgende Voir le texte source ergänzt cela la fois plan: KompilierenMarqueSéparationdeclare g&
cls
g&=Create(Gridbox,%hwnd,Spalte;1;100,0,0,0,400,300)
whileloop 0,100
Addstring(g&,Str$(&loop))
endwhile
UserMessages 295
while 1
waitinput
if (%UMessage=295) & Getfocus(g&)
SetText %hWnd,Element: +Str$(GetCurSel(g&))
endif
endwhile
Jac  |
|