Hallo ihr Lieben,
ich habe ein Formular erstellt, welches je nach vorheriger Auswahl sein Aussehen etwas ändert. Zu Deutsch: je nach Auswahl werden andere LabeledEdits erstellt bzw. an anderen Positionen sollen sie erscheinen.
Klappt soweit supi, macht auch das was ich will. XD
Nun zu meinen Problem.
Die LabeledEdits haben alle die gleichen Werte bei ihren Eigenschaften, bis auf Left, Top,Width und EditLabel.Caption. Mir ist aber leider nicht ganz klar, wie ich die einheitlichen Eigenschaften nur EINMAL deklarieren kann und die dann immer auf die Komponenten angewendet werden. Dabei geht es mir vor allem um die Schrift des Editlabels, welche dann anders ist, als ich sie möchte.
Hier mal ein Stückchen Quelltext.
Delphi-Quellcode:
var
lbledtABS_VName: TLabeledEdit;
[...]
implementation
[...]
procedure Tneuer_Eintrag.FormShow(Sender: TObject);
begin
[...]
lbledtABS_VName:=TLabeledEdit.Create(grp1);
with lbledtABS_VName do
begin
Parent:=grp1;
Left:=16;
Top:=42;
EditLabel.Caption:='Vorname:*';
Width:=121;
Font.Name:='Arial';
EditLabel.Font.Name:='Arial';
Font.Size:=9;
EditLabel.Font.Size:=9;
Show;
end;
end;
Wäre über einen Tipp froh, auch wenn irgendetwas doch noch unsauber sein sollte.
Liebe Grüße,
das Maya