Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: VCL Form design, Captions von anderer Form erhalten

  Alt 6. Mai 2021, 00:33
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.
Gruß vom KodeZwerg

Geändert von KodeZwerg ( 6. Mai 2021 um 00:35 Uhr)
  Mit Zitat antworten Zitat