Sorry für den doofen Titel. Mir fällt im Moment kein besserer ein.
Folgende Aufgabenstellung:
Ich habe eine Eingabemaske für Adressdaten. Hier soll ein Anzeigename automatisch generiert werden. Folgende Möglichkeiten stehen zur Auswahl:
Delphi-Quellcode:
type
(* Typ zur automatischen Bildung des Anzeigenamens *)
TVisibleNameBuild = (
vnb_Free, // freier Eintrag für Anzeigename
vnb_Vorname_Name, // Anzeigename aus Vorname Name zusammensetzen
vnb_Name_Vorname, // Anzeigename aus Name, Vorname zusammensetzen
vnb_Firma, // Anzeigename aus Firma bilden
vnb_Name_Firma, // Anzeigename aus Name, Firma zusammensetzen
vnb_Firma_Name // Anzeigename aus Firma, Name zusammensetzen
);
In der verwendeten Combobox sind dann für die Items folgende Einträge gesetzt:
Zitat:
freier Eintrag
Vorname Name
Name, Vorname
Firma
Name, Firma
Firma, Name
Das ganze soll folgendermaßen funzen. Wählt der Benutzer einen Eintrag aus der Combobox aus, so soll der Text der Anzeige der Combobox aus den entsprechenden EditFeldern für Name, Vorname und Firma der Eingabemaske gebildet werden. Also Click auf Eintrag "Name, Vorname" und im Edit-Bereich der Combobox erscheint "Mustermann, Klaus".
nun klappt das aber gar nicht so wie ich es möchte. Wenn ich im OnChange oder OnClick ereignis folgenden Code aufrufe wird nicht mein neuer Text gesetzt, sondern der Item-Eintrag der Combobox.
Folgender Code:
Delphi-Quellcode:
procedure TAddressEntryForm.BuildVisibleName(BuildMode: TVisibleNameBuild);
begin
case BuildMode of
vnb_Free: ;
vnb_Vorname_Name: ComboAnzeigename.Text := Format('%s %s', [EditVorname.Text, EditName.Text]);
vnb_Name_Vorname: ComboAnzeigename.Text := Format('%s, %s', [EditName.Text, EditVorname.Text]);
vnb_Firma: ComboAnzeigename.Text := EditFirma.Text;
vnb_Name_Firma: ComboAnzeigename.Text := Format('%s, %s', [EditName.Text, EditFirma.Text]);
vnb_Firma_Name: ComboAnzeigename.Text := Format('%s, %s', [EditFirma.Text, EditName.Text]);
end;
end;
procedure TAddressEntryForm.ComboAnzeigenameChange(Sender: TObject);
begin
FVisibleNameBuild := TVisibleNameBuild(ComboAnzeigename.ItemIndex);
ComboAnzeigename.ItemIndex := -1;
BuildVisibleName(FVisibleNameBuild);
FOldComboEntry := Comboanzeigename.Text;
end;
Ich habe in den Anhang noch schnell einen Screenshot meiner Eingabemaske gelegt. Vielleicht wird es damit noch etwas verständlicher.
Wenn mir einer den rechten Weg weisen kann, würd mich freuen.
Ach ja, erst mal suche ich einen einfachen Weg, eine eigene abgeleitete Komponente ist immer noch möglich wenn ich nichts passendes höre.
Dank und Gruß
oki
[edit] Ups, Anhang vergessen. oki [edit]