Letzten Eintrag in ListBox markieren

whitef · Beiträge: 202 Erhaltene Danke: 1 Windows X Delphi XE X

hi,
habe in meinem projekt eine ListBox die ich mittels OpenFolder mit Pfaden fülle.
Nun möchte ich das der letzte hinzugefügte Pfad markiert ist.
Kann mir jemand sagen wie ich das mache?

so markiert er mir ja alles

markieren

Delphi-Quelltext

1:
2:

for i:=Listbox.Items.Count-1 downto 0 do
Listbox.Selected[i] := true;

aber wie bleibt er bei dem letzten eintrag der vorhanden ist stehen?

mfg

Narses · Verfasst: Di 14.10.08 21:43

Moin!

Probier das mal so:

markieren

Delphi-Quelltext

1:
2:

ListBox1.ClearSelection;
ListBox1.Selected[ListBox1.Count-1] := TRUE;

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Yogu · Verfasst: Di 14.10.08 21:46

markieren

Delphi-Quelltext

1:	ListBox1.ItemIndex := ListBox1.Items.Count-1;

Noch kürzer.

whitef · Beiträge: 202 Erhaltene Danke: 1 Windows X Delphi XE X

funktioniert einwandfrei... Vielen Dank!

Lannes · Verfasst: Mi 15.10.08 00:07

Hallo,

und so kannst Du beim Füllen, wenn es über eine Schleife läuft, immer direkt den letzten Eintrag markieren.

markieren

Delphi-Quelltext

1:	ListBox1.ItemIndex := ListBox1.Items.Add('Hallo');

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

elundril · Verfasst: Mi 15.10.08 15:18

naja, auch nicht so optimal weil dann bei jedem schleifendurchgang erneut das letzte markiert wird. ich würde es wenn dann nach die schleife setzen und so machen wie Yogu.

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Ehemaliges Mitglied Erhaltene Danke: 1

Oder so:

markieren

Delphi-Quelltext

1:	Listbox.Perform(WM_VSCROLL, SB_BOTTOM, 0);

elundril · Verfasst: Mi 15.10.08 15:51

scrollt das die listbox nicht einfach nur ganz runter? weil eigentlich war je das markieren des letzten elements gefragt.

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Ehemaliges Mitglied Erhaltene Danke: 1

Stimmt, nicht richtig gelesen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme