Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Und wieder die leidige ComboBox (https://www.delphipraxis.net/3730-und-wieder-die-leidige-combobox.html)

Schwedenbitter 27. Mär 2003 12:01


Und wieder die leidige ComboBox
 
Ich habe (mindestens zwei) Probleme mit der ComboBox.

1. Mit ItemIndex kann man den markieren Eintrag wählen. Wenn man zu hoch greift, dann wird das ignoriert. Wie kann man aber die Gesamtzahl der Einträge ermitteln? In der Delphi-Hilfe habe ich nichts gefunden und mein "schlaues" Delphi-Buch schweigt sich da auch aus.
2. Wie bekommt man heraus, an welcher Stelle in der ComboBox ein neuer Eintrag hinzugefügt wurde, wenn man die Einträge in der Box mit Sorted=True sortieren läßt?

Hat jemand eine Idee? :lol:

janjan 27. Mär 2003 12:07

Zu 1: Probiers mal mit
Delphi-Quellcode:
ListBox1.Count

Garby 27. Mär 2003 12:10

zu 2:
Delphi-Quellcode:
Index := Listbox1.Items.Add('hallo');

Daniel B 27. Mär 2003 18:23

Hallo,

zu 1:
Delphi-Quellcode:
ComboBox.Items.Count
zu 2:
Das wird schwierig, Du müsstest Dir das Item merken. Nach dem Einfügen müsstest Du die ComboBox durchgehen und schauen an welcher Stelle ein Eintrag mit dem von Dir gemerken ist und dessen Index ist es dann.

@janjan und Garby:
Ihr habt schon gesehen das es sich um eine ComboBox! handelt?!

Grüsse, Daniel :hi:

janjan 27. Mär 2003 18:36

Argh, heut ist nicht mein Tag :(

Nicht die erste Dummheit die mir heute passiert ist, ich glaub ich geh ins Bett

City Light 28. Mär 2003 03:21

zu 2.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
begin
  ComboBox1.Items.Add(Edit1.Text);
  I := ComboBox1.Items.IndexOf(Edit1.Text);
  if I > -1 then
    ComboBox1.ItemIndex := I;
end;
Gruße Tino

Luckie 28. Mär 2003 08:24

Da beide Komoponenten die Eingenschaft Item kennen und Items von TStrings abgeleitet ist, ist es egal ob von einer Kombobox oder Listbox geredet wird.


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:44 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz