[Delphi 5] TFileListBox/TListBox - Alles markieren

Computer: Software & Programmierung Programmierung allgemein
#1

Ich suche nach einer Möglichkeit, wie man in einer TFileListBox alle Einträge (sehr schnell) markieren kann. Im Hauptmenü habe ich einen Menüpunkt „Bearbeiten - Alles markieren“ (wie im Windows Explorer). Damit sollen alle Einträge markiert werden. Wenn ich es in einer Schleife mache

for i := 0 to FileListBox.Items.Count - 1 do
 FileListBox.Selected[i] := True;

dann ist das Ganze sehr langsam, wenn sich in dem Verzeichnis viele Dateien befinden.
Es muss aber eine schnellere Möglichkeit geben. Der Windows Explorer kanns ja auch?!?

#2

Ich suche nach einer Möglichkeit, wie man in einer
TFileListBox alle Einträge (sehr schnell) markieren kann.

Hi Dieter,

folgende Funktion, die die betreffende Listbox übergeben bekommt, leistet das Verlangte:

PROCEDURE PerformLBSelectAll (Listbox: TListbox);
VAR
 h: THandle;
 k: INTEGER;
begin
 h := ListBox.Handle;
 k := ListBox.Items.Count-1;
 SendMessage(h, LB\_SELITEMRANGE, 1, k)
end;

Mit freundlichem Gruß
Martin