Als "DragListbox" bezeichnet man eine Listbox, deren Einträge mit der Maus verschoben werden können (to drag). Weil dabei Funktionen der so genannten
CommCtrl.pas" einzubinden und den Befehl "InitCommonControls" (bzw. "InitCommonControlsEx") im Programm aufzurufen.
Ich habe die Demo als Konsolenanwendung definiert, {$APPTYPE CONSOLE}, um das so zusätzlich erzeugte Konsolenfenster zur Ausgabe von Text mittels "writeln" nutzen zu können. Genauer gesagt: ich gebe in diesem Konsolenfenster die beim Verschieben eines Eintrages mit der Maus erzeugten Nachrichten aus, um den Vorgang des Verschiebens zu verdeutlichen. Diese Zeilen habe ich mit dem Kommentar "DEBUG" gekennzeichnet.