Formularübergreifende Änderungen von Properties

Deerfield · Beiträge: 35 Delphi XE Pro

Hab noch ein kleines Problem. Ich will ein Programm mehrsprachig machen und will die Caption-Eigenschaft der Komponenten auf mehreren Forms gleichzeitig mittels einer Schleife zur Laufzeit des Programmes ändern lassen. Mittels der TAG-Eigenschaft habe ich jeder Komponente einen eindeutigen 'Caption-Wert' innerhalb einer externen Ressourcenstring-Liste zugewiesen. Mittels sprachenspezifischen Offsets sind die Caption-Werte veränderbar, je nach eingestellter Sprache. Für die Umstellung habe ich einen Menüpunkt im Grundbild meiner Applikation eingerichtet, der quasi nur den Offset übergibt. Danach soll die Caption-Eigenschaft bei allen betreffenden Komponenten in jedem Formular geändert werden. Die Komponenten gehe ich so durch:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

begin
  with application do for i := 0 to ComponentCount-1 do begin
    for j := 0 to Components[i].ComponentCount-1 do begin
      if Components[i].Components[j].tag <> 0 then begin
        c := Components[i].Components[j];
        if (c is TLabel) then (c as TLabel).caption := GetResString((c as TLabel).tag);
        if (c is TButton) then (c as TButton).caption := GetResString((c as TButton).tag);
        if (c is TCheckbox) then (c as TCheckbox).caption := GetResString((c as TCheckbox).tag);
        if (c is TMenuitem) then (c as TMenuitem).caption := GetResString((c as TMenuitem).tag);
       { Hier stehen die weiteren Typen, die von der Sprachumwandlung betroffen sind ... z.B. Combobox }

      end;
    end;
  end;
end;

Das Problem ist nun, dass immer nur das Hauptformular geändert wird, nicht die Komponenten anderer Forms. Hat jemand ne Idee?

MfG
Deerfield

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

JA...kapsel das in eine proc:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure changeLanguage(aForm:TForm);
begin 
  with application do for i := 0 to aForm.ComponentCount-1 do begin 
    for j := 0 to aForm.Components[i].ComponentCount-1 do begin 
      if aForm.Components[i].Components[j].tag <> 0 then begin 
        c := aForm.Components[i].Components[j];  /// ??? Components[i].Components[j] ???
        if (c is TLabel) then (c as TLabel).caption := GetResString((c as TLabel).tag); 
        if (c is TButton) then (c as TButton).caption := GetResString((c as TButton).tag); 
        if (c is TCheckbox) then (c as TCheckbox).caption := GetResString((c as TCheckbox).tag); 
        if (c is TMenuitem) then (c as TMenuitem).caption := GetResString((c as TMenuitem).tag); 
       { Hier stehen die weiteren Typen, die von der Sprachumwandlung betroffen sind ... z.B. Combobox } 

      end; 
    end; 
  end; 
end;

du rufst die procedure dann für jede from auf :wink:

PS: @Components[i].Components[j]: das ist doch spanisch...benutz dann doch lieber echte rekursion

_________________
mfg.
mâximôv

Deerfield · Beiträge: 35 Delphi XE Pro

Also ich habs jetzt mal als Prozedur aufgerufen, beim OnShow Ereignis bzw. OnCreate. Der ändert immer nur die Mainform...

Und wie meinst du das mit der Rekursion... bin Neuling bei Delphi

MfG
Deerfield

Deerfield · Beiträge: 35 Delphi XE Pro

Also ich habs jetzt mal als Prozedur aufgerufen, beim OnShow Ereignis bzw. OnCreate. Der ändert immer nur die Mainform...

Die ganze Unit sieht so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

unit sprache;

interface

var actOffset:Integer;

const sp_deutsch  = 0;
      sp_englisch = 1000;

procedure Spracheinstellung(offset:Integer);

implementation

uses forms,StdCtrls, ExtCtrls,menus,sysutils,windows;

{$R language.res}

procedure Spracheinstellung(offset:Integer);
var i,j: integer;
    c  : TObject;

function GetResString(Nr: Integer): String;
var p: PChar;
begin
     actOffset := offset;
     p := StrAlloc(256);
     LoadString(Hinstance,nr+offset,p,255);
     result := p;
     StrDispose(p);
end;

begin
  with application do for i := 0 to ComponentCount-1 do begin
    for j := 0 to Components[i].ComponentCount-1 do begin
      if Components[i].Components[j].tag <> 0 then begin
        c := Components[i].Components[j];
        if (c is TLabel) then (c as TLabel).caption := GetResString((c as TLabel).tag);
        if (c is TButton) then (c as TButton).caption := GetResString((c as TButton).tag);
        if (c is TCheckbox) then (c as TCheckbox).caption := GetResString((c as TCheckbox).tag);
        if (c is TMenuitem) then (c as TMenuitem).caption := GetResString((c as TMenuitem).tag);
       { Hier stehen die weiteren Typen, die von der Sprachumwandlung betroffen sind ... z.B. Combobox }

      end;
    end;
  end;
end;


end.

Und wie meinst du das mit der Rekursion... bin Neuling bei Delphi

MfG
Deerfield

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

Oki...nochmal. Das mit der rekursion vergiss erstmal. Ich wunder mich nur warum du i und j läufst? die j-schleife ist IMHO überflüssig.

Wenn du deiner proc explizit das formular übergibst, dass geändert werden soll, dann musst du das nur für alle forms machen und zickzack fertig...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure Spracheinstellung(offset:Integer; aForm:TForm); // <-- form übergabe
var i,j: integer; 
    c  : TObject; 

function GetResString(Nr: Integer): String; 
var p: PChar; 
begin 
     actOffset := offset; 
     p := StrAlloc(256); 
     LoadString(Hinstance,nr+offset,p,255); 
     result := p; 
     StrDispose(p); 
end; 

begin 
  with aForm do // weil du hier apllication benutzt hast nimmt er nur das mainForm
  for i := 0 to ComponentCount-1 do begin 
    //for j := 0 to Components[i].ComponentCount-1 do begin 
      if Components[i].tag <> 0 then begin 
        c := Components[i];
        if (c is TLabel) then (c as TLabel).caption := GetResString((c as TLabel).tag); 
        if (c is TButton) then (c as TButton).caption := GetResString((c as TButton).tag); 
        if (c is TCheckbox) then (c as TCheckbox).caption := GetResString((c as TCheckbox).tag); 
        if (c is TMenuitem) then (c as TMenuitem).caption := GetResString((c as TMenuitem).tag); 
       { Hier stehen die weiteren Typen, die von der Sprachumwandlung betroffen sind ... z.B. Combobox } 

      end; 
    end; 
  end; 
end;

und der aufruf könnte so aussehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

// im mainForm ...zB. onShow
...
Spracheinstellung(??, self); // fürs mainform
Spracheinstellung(??, anotherForm); // andere forms übersetzen etc...die entsprechende unit natürlich mit uses einbinden!

klarer was ich meinte?

_________________
mfg.
mâximôv

maze2k · Verfasst: Mi 15.10.03 16:47

Wie willst du denn in letzteres noch ne Rekursion einbauen?

_________________
Wer das Konzept der Unendlichkeit verstehen will, muss nur das Ausmaß menschlicher Dummheit betrachten. (Voltaire)

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

Wie soll er eine rekursion einbauen wollen, wenn er garnicht weiss was das ist?

_________________
mfg.
mâximôv

maze2k · Verfasst: Mi 15.10.03 17:11

Rekursion war das erste was ich in meinem Studium gelernt hab, noch vor den Vorlesungen (die haben noch immer net richtig begonnen, nur Einführungen über Einführungen)...
im Vorkurs haben wir kurz Einführung in C++ gemacht und da kam gleich Rekursion (beim Berechnen der Fakultät / Fibonacci-Zahlen)

_________________
Wer das Konzept der Unendlichkeit verstehen will, muss nur das Ausmaß menschlicher Dummheit betrachten. (Voltaire)

Deerfield · Beiträge: 35 Delphi XE Pro

Guten Morgen!

maximus hat folgendes geschrieben:

Oki...nochmal. Das mit der rekursion vergiss erstmal. Ich wunder mich nur warum du i und j läufst? die j-schleife ist IMHO überflüssig.

Wenn du deiner proc explizit das formular übergibst, dass geändert werden soll, dann musst du das nur für alle forms machen und zickzack fertig...

...

klarer was ich meinte?

Ok, ich habe das soweit eingearbeitet. Die Unit sprache ist nach wie vor eingebunden, nur er meckert nun beim Aufruf von

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TMainForm.Englisch1Click(Sender: TObject);
begin
  Spracheinstellung(sp_englisch, self);
end;

Undefinierter Bezeichner: 'Spracheinstellung'

MfG
Deerfield

Deerfield · Beiträge: 35 Delphi XE Pro

Ok, habs! Danke an alle

Deerfield · Beiträge: 35 Delphi XE Pro

Hab wieder ne kleine Hürde. Ich will die Spaltenüberschriften einer Tabelle zur Laufzeit umstellen und habe in die Unit Sprache die Zeile

markieren

Delphi-Quelltext

1:	if (c is TListColumn) then (c as TListColumn).caption := GetResString((c as TListColumn).tag);

hinzugefügt. Leider werden die Spalten nicht umbenannt. Wenn ich die Caption direkt zuweise beim OnShow-Ereignis des Forms, mittels

markieren

Delphi-Quelltext

1:	Liste.Column[x].Caption := Loadstr(yyy+actOffset);

funktioniert es.

Hat jemand eine Idee?

MfG
Deerfield

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

da steht ja auch '.Column[x].' dazwischen, was auf die einzelnen cols zugreift. Mach halt die x-schleife in deine sprach proc rein

_________________
mfg.
mâximôv

Deerfield · Beiträge: 35 Delphi XE Pro

Na ich lasse doch extra alle Komponenten dieser Art in der Unit Sprache durchgehen (also quasi ne Art Schleife), aber irgendwie ändert sich nix. Das ist da komische. Bei den anderen Elementen (Labels etc.) geht es doch auch.
Nur wenn ich jedes Element direkt (also jede Spaltenüberschrift) einzeln ändere, geht es auch bei den Columns.

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

Ja...aber die TListColumns sind keine komponenten, sonder nachfahren von TCollectionItem :wink:

dir bleibt nix anderes übrig als die hauptcompo ( TListView oder watt ) rauszusuchen und dann eine extra schleife einzubauen, in der du durch die cols gehst.

_________________
mfg.
mâximôv

Deerfield · Beiträge: 35 Delphi XE Pro

Ah okay. Vielen Dank!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme