VCL Form design, Captions von anderer Form erhalten

[KodeZwerg]

Zitat von Neumann:

Form2.Panel_Vorname.Caption := ...;

kann man allerdings schwer vorbeikommen.

Die Texte kann man z.B. in einer Liste vorhalten, einem Dictionary, einem Clientdataset, einem JSON-Array, einer Datenbanktabelle usw

Ich denke mal ein Dictionary wäre hier das richtige:

DTexte=TDictionary<string,string>

Füllen:
Dtexte.add('FormCaption',mainform.caption);
Dtexte.add('KdName',Kunde.name);

Verwenden

DTexte.trygetvalue('KdName',Form2.Panel_Vorname.Ca ption);

So kann man auch das "Form2.Panel_Vorname.Caption := ...;" sparen.

Mehr dazu findet man in der Hilfe.

Man kommt da relativ einfach dran vorbei.

Delphi-Quellcode:

oncreate-event oder so...
var
  i: integer;
begin
  for i := 0 to {formname.}ComponentCount -1 do
    if {formname.}Components[i] is TPanel then
      TPanel({formname.}Components[i]).Caption := 'eine caption';
end;

so würden alle panels einer form eine caption erhalten.
nur so als vorschlag.