Der Doppelklick funktioniert.
Wie heißt aber die %lastmessage für den Einzelklick ???
Code
DECLARE Grid1&,aus&,text$
DECLARE nr%
VAR EE%=0
CLS
Grid1& = CREATE("GRIDBOX", %hwnd, "Irgendwas;0;135", 5,40,70,135,300)
aus& = CREATE("BUTTON",%hwnd,"ENDE",250,5,100,25)
Addstring(Grid1&,"Windows 95")
Addstring(Grid1&,"Windows ME")
Addstring(Grid1&,"Windows 2000")
Addstring(Grid1&,"Windows XP")
Addstring(Grid1&,"Windows 7")
Addstring(Grid1&,"Windows 8.1")
Addstring(Grid1&,"Windows 10")
WHILENOT EE%
GETMESSAGE
IF (%lastmessage = 515)
nr%=GETCURSEL(Grid1&)
text$=GETSTRING$(Grid1&,nr%)
print text$," ","Doppelklick"
ENDIF
CASE CLICKED(aus&):EE%=1
ENDWHILE
end
Alles anzeigen