Autor Beitrag
z1dirk
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 23



BeitragVerfasst: Mo 27.10.03 18:34 
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
Ak-Alex
Gast
Erhaltene Danke: 1



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

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


Und mit

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


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

Vom Memo in die ComBoBox dürfte so funktionieren:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add(Memo1.Lines[0])
end;
Wolff68
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 302
Erhaltene Danke: 1

WinXP home
D6 Prof
BeitragVerfasst: Mo 27.10.03 18:51 
Hab DIr hier mal ein Beispiel:

ausblenden 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;

_________________
"Der Mensch ist nicht was er sich vorstellt oder wünscht zu sein, sondern das was andere in ihm sehen."
z1dirk Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 23



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

danke :beer: