VCL Form design, Captions von anderer Form erhalten

[NoGAD]

Hallo,


ich mal wieder mit einer Anfängerfrage.

Bisher habe ich, um einer anderen Form die Beschriftungen von Captions (z.B.) immer von der Hauptform/aufzurufenden Form aus die Beschriftungen angepasst:

Form2.Panel_Vorname.Caption := ...;

Ich würde das lieber über Propertys machen. Wenn ich aber nun z.B. 20 verschiedene Panel beschriften muss, dann das ganze noch mit Labels, Buttons usw., muss ich ja für jedes Element (.Caption, .Hint, .Text (TEdit)), wenn es vordefiniert sein soll, eine extra Procedure schreiben.

Ist das ein gängiger Weg oder geht das einfacher über einen Record, den ich einfach fülle und bei Aufruf dann im Form2.OnShow entsprechend setze?



LG Mathias

[KodeZwerg]

*entfernt*

[Neumann]

Da gibt es viele Möglichkeiten.

An dem

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.

[NoGAD]

Dankeschön

LG Mathias

[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.

[NoGAD]

Zitat von KodeZwerg:

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

Huhu und danke. Daran hatte ich überhaupt nicht mehr gedacht.

Ich schau mir das mal an, habe da schon eine Idee

LG Mathias

[KodeZwerg]

Zitat von NoGAD:

Zitat von KodeZwerg:

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

1. Huhu und danke.
2. Daran hatte ich überhaupt nicht mehr gedacht.
3. Ich schau mir das mal an, habe da schon eine Idee
4. LG Mathias

1. sehr gerne!
2. dafür gibts uns ja
3. tu dies, ich auch, mal sehen was bei dir rauskommt, ansonsten poste ich meine "generic" version (hat was mit TObject am hut, als kleiner hinweis^^)
4. grüße zurück!