Combobox auf Ausgangswert setzen

Koyotee · Hält's aus hier Beiträge: 12

Guten Abend,
noch immer bin ich ein Anfänger im Programmieren, trotzdem habe ich es geschafft meine Windows App auf Android zum Laufen zu bringen.
Nun habe ich aber ein Problem mit der Combobox:

Gewählt habe ich "Geräteübergreifende Anwendung"
Delphi 12 Com. Edition

Es gibt mehrere Comboboxen mit Einträgen (z.B. Leerzeile, 1, 2, 3, ...) die, je nach Auswahl einen Wert in ein TEdit schreiben.
Beim Öffnen des Anwendung wird in der Combobox als erstes die Leerzeile angezeigt.
Mittels eines Button werden die Werte im TEdit wieder auf "0" gesetzt. Die Auswahl in der Combobox (z.B. 1 gewählt) bleibt stehen.
Unter einer reinen Windows VCL Anwerdung geht das mit "combobox1.text:='' "
bei der Geräteübergreifenden... bekomme ich die Fehlermeldung "eine nur-Lesen Eigenschaft kann kein Wert zugewiesen werden".

Wie kann ich diese Einträge wieder auf die Leerzeile setzen? Änderungen im Objektinspektor, über Ereignisse oder Code oder????

Vielen Dank für eure Hilfe
Harald

Th69 · Verfasst: Sa 29.03.25 09:04

Eine editierbare ComboBox gibt es auf den mobilen Systemen nicht (daher ist ein Setzen von Text nicht unterstützt).

Hast du schon ItemIndex := 0 ausprobiert?

Koyotee · Hält's aus hier Beiträge: 12

Moin Th69,
gerade probiert mit folgendem Eintrag:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if combobox1.text='' then combobox1.itemindex:=0;
end

sonst habe ich nichts geändert, funktioniert leider nicht.

VG
Harald

Moderiert von Th69: Delphi-Tags hinzugefügt

Th69 · Verfasst: Sa 29.03.25 11:59

Was soll denn die if-Abfrage?

Koyotee · Hält's aus hier Beiträge: 12

Wenn irgend etwas steht dann eben itemindex 0.
Ohne die if und nur itemindex... gab es einen Fehler

OK, habe den Fehler gefunden, hatte mich verschrieben (lesen sollte man schon richtig ;-)

).
Es funktioniert einwandfrei mit

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  combobox1.itemindex:=0;
end;

Sorry nochmals und vielen Dank

BTW: ich habe mal popupbox versucht und damit funktioniert auch wieder popupbox1.text:=''.

@Th69: Wie füge ich denn Code ein wie du das für meinen berichtigt hast?
Harald

Moderiert von Th69: Delphi-Tags hinzugefügt

Th69 · Verfasst: Sa 29.03.25 14:19

Koyotee hat folgendes geschrieben :

Wenn irgend etwas steht dann eben itemindex 0.

Dann hättest du aber auf "ungleich" testen müssen.

Zitat:

@Th69: Wie füge ich denn Code ein wie du das für meinen berichtigt hast?

Das geht im Editor unter "Bereiche" oder direkt [delphi]...[/delphi] eingeben.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme