Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - ComboBox füllen und lesen


z1dirk - Mo 27.10.03 18:34
Titel: ComboBox füllen und lesen
hi, wie kann ich eine combobox mit wörtern füllen und wie kann ich diese dann daraus lesen? ( welche stelle in der combobox das angewälte wort war, wäre auch nicht schlecht zu wissen)
z.B.: ich klicke auf ein wort in der combobox und möchte dies in ein memo ausgegeben haben und dieses auch wieder in die combobox schreiben.

danke


Anonymous - Mo 27.10.03 18:44
du kannst so nen Eintrag von der ComboBox ins Memo laden:


Delphi-Quelltext 
1:
2:
3:
4:
 
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
Memo1.Lines.Add(ComboBox1.Items[ComboBox1.ItemIndex]);
end;


Und mit


Delphi-Quelltext 
1:
 
ComBoBox1.Items[ComboBox.Itemindex]


weißt du welcher Eintrag gewählt wurde....

Vom Memo in die ComBoBox dürfte so funktionieren:


Delphi-Quelltext 
1:
2:
3:
4:
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add(Memo1.Lines[0])
end;


Wolff68 - Mo 27.10.03 18:51
Hab DIr hier mal ein Beispiel:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  { Fügt den Text in der Combobox an der aktuellen Cursorposition im Memo ein }
  Memo1.SelText := ComboBox1.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  { Übernimmt den im Memo markierten Text in die Combobox }
  { Und zwar nur, wenn dieser noch nicht existiert }
  IF Memo1.SelLength > 0 then begin
    IF ComboBox1.Items.IndexOf(Memo1.SelText) < 0 then begin
      { Text existiert noch nicht }
      ComboBox1.Items.Add(Memo1.SelText); // einfügen
      ComboBox1.ItemIndex := Combobox1.Items.Count -1; // und anwählen
    end
    else begin
      ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(Memo1.SelText); // nur anwählen
    end;
  end;
end;


z1dirk - Mo 27.10.03 20:51
danke euch beiden. die combobox wäre somit gemeistert.

danke :beer:


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!