ComboBox

[Kunoishi]

meine beiden Combobox felder initialesieren sich beim starten des Programms. das Geht schon mal.

Delphi-Quellcode:

procedure TSachverhaltForm.InitWindows;
begin
  Editdatum.Text := '';
  EditAnrede.Items.add('nicht ausgewählt');
  EditAnrede.Items.add('nicht bekannt');
  EditAnrede.Items.add('Herr');
  EditAnrede.Items.add('Frau');
  EditAnrede.Items.add('sonstige');
  EditAnrede.ItemIndex := 0;
  EditZeit.Text := '';
  EditTAnrede.Text := '';
  EditTName.Text := '';
  EditTVorname.Text := '';
  EditTGebName.Text := '';
  EditTGeschlecht.Items.add('nicht ausgewählt');
  EditTGeschlecht.Items.add('nicht bekannt');
  EditTGeschlecht.Items.add('männlich');
  EditTGeschlecht.Items.add('weiblich');
  EditTGeschlecht.ItemIndex := 0;
  EditTGebDatum.Text := '';
  EditTGeburtsort.Text := '';
  EditTStrasse.Text := '';
  EditTPLZ.Text := '';
  EditTOrt.Text := '';
  
end;

wie schaffe ich es, wenn ich in meiner Combobox "EditAnrede" die Anrede Herr auswähle, dass in der anderen Combobox "EditTGeschlecht" dort dann automatisch männlich erkannt wird (oder bei bedarf halt weiblich).

[haentschman]

Hallo,

du könntest im OnChange der EditAnrede Combobox entsprechend dem ausgewählten Index den Index der anderen ComboBox setzen.

Stichworte:
- case EditAnrede.ItemIndex of

:hi:

[Kunoishi]

und wie geht das in Delphinisch :gruebel:

[haentschman]

...das war schon die Steilvorlage. der Rest ergiebt sich aus F1 und lesen. Fragen gerne aber fertigen Quelltext ohne zu lernen dabei... bei mir falsch. :wink:

- im Objektinspektor der ComboBox Anrede --> Ereignisse --> Doppelklick auf OnChange --> procedurrumpf für OnChange wird erstellt
- darin dann den Code, der bei jeder Änderung der ComboBox ausgeführt wird

[Kunoishi]

ich kann es ja mal versuchen, aber recht hast du.
mal sehen ob ich mit der hilfe weiter komme. wenn nicht
melde ich mich auf jeden fall hier noch mal.
das kannst glauben :P :zwinker:

[haentschman]

Dann sind wir wieder für dich da. Aber alles macht nur Sinn wenn du dabei lernst. :thumb:

[Kunoishi]

wie LENIN schon sagte, lernen,lernen noch mals lernen

in diesem Sinne :mrgreen:

[haentschman]

[OT]

Zitat:

wie LENIN schon sagte, lernen,lernen noch mals lernen

...da ist ja echt was hängengeblieben :thumb: Respekt :mrgreen:
[/OT]

[Kunoishi]

:bouncing4:
ich habe es versuch so zu realisieren

Delphi-Quellcode:

procedure form.editTAnredeChange(Sender: TObject);
beginn
  editTGeschlecht.ItemIndex:= EditTAnrede.ItemIndex+2;
end;

danke für die kleine HILFE.
habt ihr noch ein verbesserungsvorschlag?

ach ja und danke Herrn Lenin :stupid:

[haentschman]

...einen kleinen :wink:

den ItemIndex der 2. Combobox direkt setzen

Delphi-Quellcode:

procedure form.editTAnredeChange(Sender: TObject);
begin
  if editAnrede.ItemIndex = 1 then editTGeschlecht.ItemIndex:= 2;
end;

oder eleganter mit case

Delphi-Quellcode:

procedure form.editTAnredeChange(Sender: TObject);
begin
  case editAnrede.ItemIndex of
    1: editTGeschlecht.ItemIndex:= 2;
    2: editTGeschlecht.ItemIndex:= 1; //entsprechend deiner Einträge in der Combobox
end;

...ansonsten weiter :wink:

PS: warum hat deine ComboBox auch EDIT im Namen und nicht z.B. COMBO oder so. Wäre dann leichter auseinanderzuhalten. :wink: