XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Listbox: Eintrag markieren
SendMessage(Handle&,$0186,0,0)
SetFocus(Handle&)
k% = 5
SendMessage(Handle&,$0186k%0,0)
SetFocus(Handle&)
k% = Nr. des Eintrages (k% = 0 -> 1. Eintrag)