TListBox/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Diese Seite erklärt, wie man die [[doc:lcl/stdctrls/tlistbox.html\|TListBox]] Komponente verwendet. Auf etwas klicken bedeutet immer ein Linksklick, ein Rechtsklick wird explizit erwähnt.
2	2
3	3		## Beschreibung
4	4
5	5		Eine scrollbare Liste von Strings.
6	6
7		-	~~<figure>~~
8		-	~~<img src="Comp_Standard_TListBox.png" title="Comp_Standard_TListBox.png" />~~
9		-	~~<figcaption>Comp_Standard_TListBox.png</figcaption>~~
10		-	~~</figure>~~
	7	+	![](/wiki-images/d/d7/Comp_Standard_TListBox.png)
11	8
12	9		## Verwendung
13	10
14	11		Um eine [[doc:lcl/stdctrls/tlistbox.html\|TListBox]] auf einem [[TForm/de\|Formular]] zu nutzen, kann man sie einfach auf der Komponentenpalette Standard auswählen und, mit einem Klick auf das Formular, platzieren.\
15	12		Die, in der ListBox hinterlegten, [[String/de\|Strings]] sind in der Eigenschaft Items hinterlegt, die vom Typ TStrings ist. Somit können Sie Strings der Listbox zuweisen oder entfernen, wie bei einer [[TStringList-TStrings Tutorial/de\|TStringList]] oder ihres Vorfahrens [[TStringList-TStrings Tutorial/de\|TStrings]].
16	13
17	14		Nachfolgend ein paar Beispiele zur Verwendung einer ListBox ListBox1 auf einem Formular Form1:
18	15
19	16		### ListBox füllen
20	17
21	18		#### per Objektinspektor
22	19
23	20		- Wählen Sie die ListBox auf Ihrem Formular mit einem Klick an.
24	21		- Gehen Sie im Objektinspektor im Reiter Eigenschaften auf die Eigenschaft Items.
25	22		- Klicken Sie auf den Button mit den drei Punkten. Der Zeichenketteneditor öffnet sich.
26	23		- Geben Sie Ihre Texte ein und bestätigen Ihre Arbeit mit OK.
27	24
28	25		#### per Code bei Buttonklick
29	26
30	27		- Fügen Sie Ihrem Formular einen [[TButton/de\|TButton]] hinzu mit dem Namen btnFill und Caption Listbox füllen. Im Eventhandler OnClick des Buttons schreiben Sie folgenden Code:
31	28
32	29		``` pascal
33	30		procedure TForm1.btnFillClick(Sender: TObject);
34	31		begin
35	32		ListBox1.Items.Clear; //Alle vorhandenen Strings löschen
36	33		ListBox1.Items.Add('Erste Zeile');
37	34		ListBox1.Items.Add('Zeile mit Zufallszahl '+IntToStr(Random(100)));
38	35		ListBox1.Items.Add('Dritte Zeile');
39	36		ListBox1.Items.Add('Noch eine Zufallszahl '+IntToStr(Random(100)));
40	37		end;
41	38		```
42	39
43	40		#### Zuweisung einer StringList
44	41
45	42		- Fügen Sie Ihrem Formular einen [[TButton/de\|TButton]] hinzu mit dem Namen btnFill und Caption Listbox füllen. Im Eventhandler OnClick des Buttons schreiben Sie folgenden Code:
46	43
47	44		``` pascal
48	45		procedure TForm1.btnFillClick(Sender: TObject);
49	46		var
50	47		myStringList: TStringList;
51	48		begin
52	49		myStringList:=TStringList.Create; //Meine StringList erstellen
53	50		myStringList.Add('Das ist die erste Zeile.'); //dieser eine Zeile zufügen
54	51		myStringList.Add('Das ist die zweite Zeile.');
55	52		myStringList.Add('Das ist die dritte Zeile.');
56	53		myStringList.Add('usw.');
57	54		ListBox1.Items.Assign(myStringList); //der ListBox1 den Textinhalt meine StringList zuweisen
58	55		myStringList.Free; //Meine StringList im Speicher wieder freigeben
59	56		end;
60	57		```
61	58
62	59		### String zufügen
63	60
64	61		- Erweitern Sie das Beispiel [[TListBox/de\|ListBox füllen per Code bei Buttonklick]] um ein [[TEdit/de\|TEdit]] und einen [[TButton/de\|TButton]] mit einem Namen btnAdd und Caption String zufügen. Ändern Sie noch von Edit1 die Eigenschaft Text zu "" - leerer String.
65	62		- Im Eventhandler OnClick des Buttons schreiben Sie folgenden Code:
66	63
67	64		``` pascal
68	65		procedure TForm1.btnAddClick(Sender: TObject);
69	66		begin
70	67		ListBox1.Items.Add(Edit1.Text);
71	68		Edit1.Text:='';
72	69		end;
73	70		```
74	71
75	72		### String löschen
76	73
77	74		Standardgemäß ist eingestellt, dass Sie nur eine Zeile in Ihrer Listbox selektieren können. Wollen Sie mehere Zeilen in Ihrer ListBox auswählen können, müssten Sie die Eigenschaft MultiSelect auf True stellen.
78	75
79	76		#### Lösche String bei ItemIndex
80	77
81	78		- Erweitern Sie das Beispiel [[TListBox/de\|String zufügen]] um einen [[TButton/de\|TButton]] mit einem Namen btnDel und Caption String löschen.
82	79		- Im Eventhandler OnClick des Buttons schreiben Sie folgenden Code:
83	80
84	81		``` pascal
85	82		procedure TForm1.btnDelClick(Sender: TObject);
86	83		begin
87	84		if ListBox1.ItemIndex > -1 then //Nur löschen, wenn ein String in der Listbox selektiert ist
88	85		ListBox1.Items.Delete(ListBox1.ItemIndex);
89	86		end;
90	87		```
91	88
92	89		#### Lösche alle selektierten Strings
93	90
94	91		- Erweitern Sie das Beispiel [[TListBox/de\|String zufügen]] um einen [[TButton/de\|TButton]] mit einem Namen btnDel und Caption String löschen.
95	92		- Im Eventhandler OnClick des Buttons schreiben Sie folgenden Code:
96	93
97	94		``` pascal
98	95		procedure TForm1.btnDelClick(Sender: TObject);
99	96		var
100	97		i: Integer;
101	98		begin
102	99		if ListBox1.SelCount > 0 then //Nur löschen, wenn min. ein String in der Listbox selektiert ist
103	100		for i:=ListBox1.Items.Count - 1 downto 0 do //Alle Items durchlaufen
104	101		if ListBox1.Selected[i] then //Falls ausgewählt...
105	102		ListBox1.Items.Delete(i); //...das Item (String) löschen
106	103		end;
107	104		```
108	105
109	106		### ListBox selber zeichnen
110	107
111	108		Allgemein ist es günstig, die ListBox in dem vom Nutzer eingestellen [Thema](http://de.wikipedia.org/wiki/Skin_%28Computer%29) darstellen zu lassen. In manchen Fällen (programmiert man z.B. ein Spiel mit einer bunten Oberfläche), kann man jedoch auch von diesem Standard abweichen und die Listbox nach eigenem Wunsch zeichnen. Wie das geht, können Sie jetzt ausprobieren:
112	109
113	110		- Sie können das vorhergehende Beispiel modifizieren oder Sie erstellen eine neue Anwendung mit einer TListBox ListBox1.
114	111		- Ändern Sie von ListBox1 im Objektinspektor die Eigenschaft Style auf lbOwnerDrawFixed.
115	112		- Erstellen Sie im Objektinspektor den Eventhandler für das Ereignis OnDrawItem, indem Sie auf den Button \[...\] klicken.
116	113		- Folgenden Code fügen Sie dem Eventhandler zu:
117	114
118	115		``` pascal
119	116		procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
120	117		ARect: TRect; State: TOwnerDrawState);
121	118		var
122	119		aColor: TColor; //Hintergrundfarbe
123	120		begin
124	121		if (Index mod 2 = 0) //Index sagt, um welches Item es sich handelt
125	122		then aColor:=$FFFFFF //jedes zweite Item bekommt weiß als Hintergrundfarbe
126	123		else aColor:=$EEEEFF; //jedes zweite Item bekommt rosa als Hintergrundfarbe
127	124		if odSelected in State then aColor:=$0000FF; //Falls Item ausgewählt ist, dann rote Hintergrundfarbe
128	125		ListBox1.Canvas.Brush.Color:=aColor; //Hintergrundfarbe festlegen
129	126		ListBox1.Canvas.FillRect(ARect); //Ein ausgefülltes Rechteck zeichnen
130	127
131	128		ListBox1.Canvas.Font.Bold:=True; //Font auf "Fett" festlegen
132	129		ListBox1.Canvas.TextRect(ARect, 2, ARect.Top+2, ListBox1.Items[Index]); //Itemtext zeichnen
133	130		end;
134	131		```
135	132
136	133		> Note: Parameter von ListBoxDrawItem:\
137	134		> \
138	135		> Control:\
139	136		> Falls mehrere Controls (z.B. mehrere ListBoxen) auf diesen Eventhandler zugreifen, weiß man, welches diesen Event geworfen hat. Man könnte in unserem Beispiel statt `ListBox1.Canvas.FillRect(ARect)` auch `TListBox(Control).Canvas.FillRect(ARect)` schreiben, wobei man zuvor möglichst noch abfragen sollte, ob es ich um eine TListBox handelt:
140	137		>
141	138		> ``` pascal
142	139		> if Control is TListBox then
143	140		> TListBox(Control).Canvas.FillRect(ARect);
144	141		> ```
145	142		>
146	143		> Index: Gibt die Item-Stelle an, somit hat man Zugriff auf den String `<ListBox>.Items[Index]`.\
147	144		> ARect: Beschreibt das Rechteck, was zur Zeichnung des Hintergrundes notwendig ist.\
148	145		> State: Status des Items, ob normal, fokusiert, selektiert etc.
149	146
150	147		- So könnte Ihr Beispiel dann aussehen:
151	148
152	149		![](/wiki-images/2/26/ListBoxBsp1.png) -\> ![](/wiki-images/9/9f/ListBoxBsp2.png)
153	150
154	151		## Siehe auch
155	152
156	153		[[TMemo/de\|TMemo]] - Ein Steuerelement um mehrzeilige Texte zu editieren
157	154
158	155		---
159	156		From the Free Pascal wiki, page "TListBox/de", as it stood on 2020-03-01 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history