Gridbox: Doppelklick auf Items Und SubItems ermitteln

[Frabbing]

'
' (w) Wilfried Heyse & Frabbing für RGH & Paules-PC-Forum:
' http://www.paules-pc-forum.de/forum/xprofan/
'
$H windows.ph
$H messages.ph

WindowStyle 31+512
Window 0,0-800,600

Declare Parken&
Declare Parkout&
Declare Parkout%
Declare Auto$
Declare Item&

PARKEN&   = Create("GridBox", %hwnd, "PARKEN;0;135;ZEIT;0;135", 1, 100, 70, 260, 370)
Parkout& = Create("Button",%hwnd,"ENDE",500,500,190,25)
 
Addstring(Parken&,"Sharan|Heute")
Addstring(Parken&,"Golf|Gestern")
Addstring(Parken&,"Lupo|Morgen")
Addstring(Parken&,"Passat|Vorgestern")

SubClassProc 
  If SubClassMessage(%hWnd, ~WM_NOTIFY)
    If Long(&sLParam,8)=-3
      item&=Long(&sLParam,12)
      If item&<>-1
        SendMessage(%hwnd, 2000, item&, Long(&sLParam,16))
      EndIf
    EndIf
  EndIf  
EndProc

SubClass %hwnd, 1
UserMessages 2000

WhileNot Parkout%
 
WaitInput

  If (%umessage = 2000)
    auto$ = GetText$(PARKEN&, &uwparam, &ulparam)
    Print auto$
  Endif
  
  If Clicked(Parkout&)
    Let Parkout% = 1
  Endif
 
Endwhile

Usermessages 0
SubClass %hwnd, 0
END