Wie verwendet man ComboBox oder ListBox ???

[Mr.Dollar2k3]

hallo
hab mal ne frage wie kann ich einen combobox benutzten :
ich will das der benutzter z.b. etwas in einen Editfeld eingibt dann das in die Combobox eingetragen wird dass kann ich eigendlich auch aber wie kann ich es machen das wenn der benutzter aus dem combobox etwas anklickt dann im Edit feld das angeklickte steht (gleich frage bei Listbox auch )???

also zusammengefasst :

benutzter gibt in Edit1 :"bla bla " ein
--> in ComboBox ist dann "bla bla " eingetragen
---> danach klickt er auf Combobox auf "bla bla "
----> "bla bla " steht dann in Edit1

ich hoffe einer kann das denn ich kann das nicht

thx in vorraus

Dollar

[Mirilin]

Schau dir mal die Property Items an und die damit verklinkten Themen in der Hilfe.

Und die Hilfeinträge zu TCombobox und TListBox


mfg Tobias

[MathiasSimmack]

Die Listbox kennt das Ereignis "OnClick", die Combobox "OnChange". In beiden kannst du das jeweils gewählte Item auslesen (s. dazu Eigenschaft "ItemIndex") und in das Editfeld übertragen.

[Mr.Dollar2k3]

hmnmmm und wie müsste ich das benutzten
wie krieg ich zumbeispiel den index in eine string ??? da index Tstring isss

[MathiasSimmack]

Hat man dir die F1-Taste geklaut? Wenn ich mir bspw. Infos zum "ItemIndex" einer ComboBox anzeigen lasse, und dann oben auf "Beispiel" klicke, sehe ich, wie der Name des Fonts (in der ComboBox) einem RichEdit zugewiesen wird. Du könntest doch mal den Teil nach dem
:= zwischen

Delphi-Quellcode:

ShowMessage(
  // hier rein damit!
);

setzen und gucken, ob was passiert. Das gilt auch für die Listbox.

[Mr.Dollar2k3]

mir eine richtige antwort liebeer oder ein quellcode beispiell



ps in hilfe habe ich schon geschaut aber das iss kompliziert mann sonst würd ich ja nicht auf diesen board kommen

[s14]

Im Change-Ereignis der ComboBox

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text := ComboBox1.Items[ComboBox1.ItemIndex];
end;

Gruß

[tHeRiAn]

hi

hab da auch nen kleinen Anreiz für dich

getestest und funzt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var blabla : string;
begin

blabla:=edit1.Text;
ComboBox1.Items.Append(blabla);


end;

end.

mfg therian

[Mr.Dollar2k3]

danke leute für die hilfe !!!!!!!