Hi Chris,
das werden sie sowieso in jedem Fall.Jedenfalls in diesem Programm.
Beispiel:
Code:
procedure TForm1.AnyInChange(Sender: TObject);
var
bEdit: TEdit;
cLabel: TLabel;
begin
if Sender <> nil then
if Sender is TEdit then
begin
bEdit := FindComponent('in' + Copy(TEdit(Sender).Name, 3, 2)) as TEdit;
cLabel := Form2.FindComponent('out' + Copy(TEdit(Sender).Name,3,2)) as TLabel;
cLabel.Caption:=bEdit.Text;
end;
end;
So und so ähnlich werden sie im kompletten Programm angesprochen.Deswegen meine Vermutung ob es nicht einfacher ginge.
Ich konnte es nur nicht nachvollziehen, ob jedes Label den richtigen Namen bekommt, weil es man nicht sieht.
Denn alles "Findcomponents" sind auf eine bestimmte Zahl abgestimmt.Will sagen egal wie die Komponenten heissen haben sie die gleich Zahl, die die ich ansprechen will.
Einen geruhsamen heiligen Abend an alle!
(Werd noch a bisserl rumprobieren
) )