...einen kleinen
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
PS: warum hat deine ComboBox auch EDIT im Namen und nicht z.B. COMBO oder so. Wäre dann leichter auseinanderzuhalten.