Alle Objekte eines Formulares durchgehen

[karkov]

Gibt es eine Möglichkeit mit hilfe einer Laufenden Zahl alle Objekte eines Formulares druchzugehen?
Ich will ein Programm schreiben, das in mehreren Sprachen vorhanden ist. Dazu will ich mit Hilfe einer Schleife auf alle Objekte eines Formulares zugreifen und diese je nach Sprache den Inhalt der Eigenschaft Caption anpassen (über eine DB).

[df.id]

Jedes Formular hat die Eigenschaften Controls[] und ControlCount. Enthält das Formular WinControls, wie tPanel, muß man nur rekursiv arbeiten, um alle Objekte zu besuchen. Das könnte so aussehen:

Code: Alles auswählen

procedure TForm1.UpdateOne(Control: TControl);
begin
 // hier das Sprachupdate auf Control.Caption durchführen
end;
 
procedure TForm1.UpdateAll(Control: TControl);
var
 i: Integer;
begin
 if Control is TWinControl then
  with Control as TWinControl do
   for i:=0 to ControlCount-1 do
    UpdateAll(Controls[i]);
 UpdateOne(Control);
end;
 
procedure TForm1.ExecuteUpdateAll(Sender: TObject);
begin
 UpdateAll(Self);
end;

Für Internationalisierung existieren aber auch Standardmuster, die wahrscheinlich den besseren Weg darstellen.

[pluto]

Es gibt noch eine zweite Eigenschaft: ComponentCount und Components. Werden genauso genutzt wie im Beispiel gezeigt.

[carli]

Gibt es eine Möglichkeit mit hilfe einer Laufenden Zahl alle Objekte eines Formulares druchzugehen?
Ich will ein Programm schreiben, das in mehreren Sprachen vorhanden ist. Dazu will ich mit Hilfe einer Schleife auf alle Objekte eines Formulares zugreifen und diese je nach Sprache den Inhalt der Eigenschaft Caption anpassen (über eine DB).

Warum machst du's nicht über die offiziellen i18n-Methoden?
http://wiki.lazarus.freepascal.org/Tran ... r_programs" onclick="window.open(this.href);return false;

[karkov]

Danke für die Antworten. Das ist genau das, was ich gebraucht habe!

@ carli: auf die gefahr hin, mich zu blamieren, wi und wie definiere ich denn Ressourcenstrings? Das ist mir bei der Lektüre nicht ganz klar geworden.

[carli]

Danke für die Antworten. Das ist genau das, was ich gebraucht habe!

@ carli: auf die gefahr hin, mich zu blamieren, wi und wie definiere ich denn Ressourcenstrings? Das ist mir bei der Lektüre nicht ganz klar geworden.

Code: Alles auswählen

resourcestring
    rsSomeText = 'Some text';

Blamieren tust du dich nicht, weil du fragst, sondern weil ein simples Google "Lazarus ressourcenstrings" dasselbe Ergebnis liefert.

[Scotty]

Falls du die Standard i18n nicht magst, dann kannst du dir meine Variante auf LazForge ansehen. Alle dynamischen Strings werden in der jeweiligen Unit als r* verwendet, ulanguage eingebunden und r* dort definiert. SetLanguage() ist die Hauptroutine. Der Vorteil meiner Version ist eine IMHO übersichtlichere lang-Datei und die Umschaltung der Sprache zur Laufzeit, Nachteil, dass es eben kein Standard ist. Es gibt aber sicher noch viele weitere Nachteile