Fragen zu ComboBox und Items

[Dibelius]

:?:


Hi, ich hoffe, das gehört in dieses Forum.

Ich bin noch Noob, was Programmierung und Delphi angeht.
Ich hab ein kleines Programm erstellt, wo ich verschiedene Buttons hab und 4 ComboBoxes (die alle übereinander liegen. Ich hab das so gescriptet, dass zb. ComboBox4 sichtbar wird, nachdem man auf Button3 geklickt hat. alle anderen ComboBoxes werden dann invisible. Soviel dazu.
Nun hab ich natürlich auch Items in den jeweiligen ComboBoxes. Bei einem Klick auf ein bestimmtes Item soll nun etwas passieren. In meinem Fall zb. sollen Edit-Felder und Labels un-/sichtbar werden. Das ist alles kein Problem, nur weiß ich nicht, wie man das so scriptet, dass bei einem Klick auf Item1 zb. genau die Aktion1 in Kraft tritt und bei einem Klick auf Item2 genau die Aktion2.
Bei mir kommt immer Aktion1, egal ob ich Item1, Item2, Item3 ... gewählt habe.

Ich denke, ihr wisst schon, was ich meine.

Wenn mir jemand den Quellcode mal geben könnte, wäre super!

Greetz Dibi

[Die Muhkuh]

Hi und herzlich willkommen im Forum!

Du hast zwei möglichkeiten:

Die erste:

Delphi-Quellcode:

Procedure TForm1.Combobox1click(Sender:TObject);
begin
  case Combobox1.itemindex of
    0: begin
        Label1.visible := true;
        Label2.visible := false;
        ...
    1: Label3.visible := false;
     ....

Das ist die erste Veriosn! Achtung 0 ist für den ersten Combobox eintrag 1 für den zweiten und so weiter!

Die Zweite möglichkeit:

Delphi-Quellcode:

Procedure {Combobox};
begin
  if Combobox1.itemindex = 0 then
  begin
    Label1.visible := true;
    Label2.visible := false;
  end
  else
  if Combobox1.visible = 1 then
  {blablabla}

Spider

[Daniel B]

Hallo und herzlich Willkommen in der DP! :dp:

Schau Dir mal Case und ItemIndex an. So kann man auf die jeweiligen Werte der ComboBox zugreifen.

[scp]

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Case Combobox1.ItemIndex Of
    0: Aktion1;  // Item1
    1: Aktion2;  // Item2
    2: Aktion3;  // Item3
    // ....
  end;
end;

[edit]
Ups... da war einer schneller :-)
[/edit]

[Die Muhkuh]

@scp

Hihi war schneller

[Daniel B]

Zitat:

Zitat von Spider

@scp

Hihi war schneller

Dafür habt Ihr beide dafür gesorgt, das ein Mensch mehr nicht weiss wo die OH zu finden ist. ;)

[Dibelius]

@Spider, scp
ich danke euch. klappt :thuimb:

@Daniel B
hol's nach :wink:

[choose]

Hallo Dibelius,

schön, dass Du Dich mit Delphi beschäftigen möchtest.

Du kannst in Delphi (visuellen) Komponenten so mit Methoden verknüpfen, dass sie beim Eintreten eines bestimmten Ereignisses ausgelöst werden. Wenn Du zB im Formdesigner einen Doppelklick auf einen Button1 machst, wird automatisch eine Methode .Button1Click generiert und mit dem Ereignis Button1.OnClick verknpüft.

In Deinem Fall möchtest Du, wenn ich Dich richtig verstanden habe, eine Handlung durchführen, wenn ein Eintrag aus einer Combobox, sagen wir Combobox1, ausgewählt wird. Das ist das Ereignis Combobox1.OnChange. Wenn Du die entsprechende Methode mithilfe des Objektinspektors erzeugst und zuweist, wird sie immer ausgeführt, wenn ein Eintrag der Combobox1 ausgewählt wird. Es gibt kein zweites, drittes oder viertes Ereignis für alle denkbaren Anzahlen von Elementen, die Auswahl eines beliebigen Elements hat das Eregnis OnChange zur Folge.
Damit Du unterscheiden kannst, welcher Eintrag ausgewählt wurde, nutze die Eigenschaft ItemIndex (Nutze die ausführliche OH!).

Du kannst auch alle OnChange-Ereignisse der Comboboxen mit der selben Methode verknüpfen, musst dann allerdings entscheiden, welche Combobox das Ereigniss ausgelöst hat.
Zwar könntest Du mit

Delphi-Quellcode:

if Sender=Combobox1 then Foo else
if Sender=Combobox2 then Bar else
  FooBar;

jede Komponente abfragen, dies bietet sich idR aber nicht an.
Nutze stattdessen den Parameter Sender der Ereignisbehandlungsroutine, sie ist eine Referenz auf das ereignisauslösende Objekt und caste es zu dem Typen, von dem Du ausgehst.

Delphi-Quellcode:

var
  myCombobox: TCombobox;
begin
  myCombobox:= Sender as TCombobox;
  //Ab hier mit myCombobox arbeiten, statt mit Combobox1, etc.
  //also zB case myCombobox.ItemIndex of...

Du solltest vorher jedoch überprüfen, ob es sich bei Sender wirklich um einen adequaten Typ handelt (sieh hierzu in die OH unter "is" und "as" nach).

EDIT: Mist, zu langsam getippt ;)

[Dibelius]

ja etwas *g*

trotzdem danke für die Arbeit die ihr euch gemacht habt. klappt jetzt :-D

[Dibelius]

:gruebel: mmmh...

sagt mal, ist es möglich, statt der index nummer den index text abzurufen, also im Prinzip eine Index in eine Zeichenkette umzuwandeln (oder so ähnlich :stupid: )?
Ich habe gemerkt, dass es praktischer wäre, wenn ich die Items per dem Text abrufen könnte, da ich mit der Zeit immer wieder Items zur ComboBox hinzufügen werde und diese alphabetisch ordne. Das heißt, ich hätte dann einen haufen arbeit damit, die ganzen index nummern wieder zu ändern.

Danke schonmal,

Greetz Dibi :wink: