Combobox Items Einträge mit bestimmten Kommentar...

[alanblack]

Hallo Leute,

ich habe ein Problem. Will es eigentlich nur aus Spaß machen aber naja zurzeit hab ich son ne Phase hmmmm sagens wir mal so, eine phase in der mir nix mehr einfällt was ich gelernt habe und wie ichs machen soll :-( BUG IM KOPF *LOL*

Also:

Ich habe eine Combobox mit verschiedenen Einträgen, ein Button und ein Memo.
Inder Combobox sind verschiedene Einträge.
das ich es besser erklären kann beschreib ichs mal so

Inder Combobox sind die Einträge:
grün
blau
gelb
rot

wenn ich jezt zb grün auswähle und auf den button klicke soll im Memo beispielsweise "grün ist schön"
und wenn ich in der combobox gelb auswähle soll es heißen "gelb ist hell"
bei blau dann zb "blau is schön"
usw.

ich hoffe ich versteht was ich meine und was ich machen will


mfg alanblack

[Micha]

Hier mal eine Lösung, ist aber vielleicht nicht gerade die eleganteste.
(1 Combobox, 1 Button, 1 Memo)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 If ComboBox1.Text = 'blau' then
  begin
   Memo1.Text := 'blau ist schön';
  end;
 if Combobox1.Text = 'grün' then
  begin
   Memo1.text := 'grün ist schön';
  end;
 if ComboBox1.text = 'gelb' then
  begin
   Memo1.text := 'gelb ist hell';
  end;
end;

Du kannst das Ganze auch mit den ItemIndex der ComboBox lösen.
Auch eine Möglichkeit, ohne Button, wäre der Einsatz eines Timers. Der dir dann sofort im OnChange der ComboBox, also beim drüberfahren mit der Maus den Text im Memo anzeigt.

[Neg]

Delphi-Quellcode:

procedure TForm1.TButton1Click(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0: Memo1.Text:='Grün ist toll.';
    1: Memo1.Text:='Blau ist super.';
    2: Memo1.Text:='Gelb ist klasse.';
    3: Memo1.Text:='Rot ist schön.';
  else Memo1.Text:='Bitte Farbe auswählen...';
  end;
end;

Oder, wenn du willst, noch etwas kompakter:

Delphi-Quellcode:

const
  cColorComments: Array[0..3] of String = ( 'Grün ist toll.',
    'Blau ist super.', 'Gelb ist klasse.', 'Rot ist schön.' );

procedure TForm1.TButton1Click(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0..3: Memo1.Text:=cColorComments[ComboBox1.ItemIndex];
  else Memo1.Text:='Bitte Farbe auswählen...';
  end;
end;