ComboBox Problem

[ironman139]

Hallo,

Ich hab ein kleines Problem mit Lazarus.

Ich hab in meinem Form1 2 ComboBoxen in welchen Daten gespeichert sind.
Dieses angezeigte Item will ich an ein 2. Form weitergeben.
In dem Form 2 rufe ich die Daten mit " label9.caption:= Form1.Combobox1.text; " ab.
Das Funktioniert soweit auch, nur übernimmts mir da nur die Daten von Form1, die bei der OnCreate Methode eingestellt sind.
Also wenn ich die Combox ändere und dann in Form2 übernehmen will, zeigts mir trotzdem nur das Item an , welches bei OnCreate eingetragen war.


mfg. iron

[markus5766h]

Hallo, herzlich willkommen in der DP.

Du musst auf die Änderung der ComboBox reagieren,
hierfür gibt es das Ereignis OnChange der ComboBox.
Alternativ kannst Du auch den Wert über die Items
--> ComboBox1.Items[ItemIndex] abfragen.

Delphi-Quellcode:

if ComboBox1.ItemIndex > -1 then Form2.Label1.Caption := ComboBox1.Items[ComboBox1.ItemIndex];

[Union]

Zitat:

Zitat von ironman139 (Beitrag 1234119)

Hallo,
In dem Form 2 rufe ich die Daten mit " label9.caption:= Form1.Combobox1.text; " ab.

Zu welchem Zeitpunkt findet denn dieser "Abruf" statt?

[ironman139]

Der Abruf findet statt, wenn ich einen Button drück.
Dann erscheint das Form2

[markus5766h]

. . . dann sollte's doch so gehen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Form2.Visible then Form2.Show;
  if ComboBox1.ItemIndex > -1 then Form2.Label9.Caption := ComboBox1.Items[ComboBox1.ItemIndex];
end;

oder

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Form2.Visible then Form2.Show;
  Form2.Label9.Caption := ComboBox1.Text;
end;

[ironman139]

Danke ihr habt mir sehr geholfen