Für jedes Child eine variable

[citybreaker]

Hallo,

ich erzeuge verschieden viele MDI Child in meinem Projekt
und möchte eine variable xy haben, bei der im jedem Child
etwas anderes drinne steht. Während der Laufzeit möchte ich
mit ActiveMDIChild oder anders auf die Variable zugreifen und
event. ändern können. Hab nur leider keine Idee wie ich das
machen könnte.

[x000x]

Moin moin,

eine Idee wäre, für jedes MDIChild eine globale Variable im MDIMainForm zu halten.
Jetzt kannst du zu jederzeit von jedem MDIChild auf diese Zugreifen und auch
ggf. ändern.

[citybreaker]

Das Problem ist ich möchte auch aus anderen Units auf
die Variable zugreifen.

[x000x]

Ok,
wenn du in jedem MDIChild die MDIMainForm in die uses mit aufnimmst, funktioniert
mein Vorschlag... macht natürlich nur Sinn, wenn die Anzahl der zu erstellenden
MDIChilds bekannt/begrenzt ist

Zitat von citybreaker:

ich erzeuge verschieden viele MDI Child in meinem Projekt

Erzeugst du mehrere Childs von der gleichen Klasse oder immer nur eins?
Muss die Variable nach dem Zerstören des Childs noch bekannt sein?

[mschaefer]

Moin, wenn es nur eine Integer sein darf, dann nimm die Tag-Eingenschaft des MDI-Cild-Forms. Grüße //Martin

[r2c2]

Wie wärs mit nem public-Feld bzw. ner public-property in der Child-Klasse?

mfg

Christian

[citybreaker]

Ne die anzahl der MDI Childs ist nicht beaknnt. Ich möchte einen String als
variable haben. Die Childs sind alle von der selben Klasse.
Wenn das Child zerstöhrt wurde, wird die Variable von demjenigen Child nicht
mehr gebraucht. Möchte nur alt als Beispiel, das in einem Label immer
der text der Variable steht dessen Fenster grad Aktiviert ist.

Zitat:

Wie wärs mit nem public-Feld bzw. ner public-property in der Child-Klasse?

Davon habe ich noch nichts gehört, was genau ist das?

[r2c2]

Zitat von citybreaker:

Zitat:

Wie wärs mit nem public-Feld bzw. ner public-property in der Child-Klasse?

Davon habe ich noch nichts gehört, was genau ist das?

Wenn du weißt, was ne Klasse ist, sollte das aber bekannt sein:

Delphi-Quellcode:

TMDIChild = class(TForm)
private
...
public
  DeineVar: Integer; // Du kannst jetzt in jedem Child auf diese Variable separat zugreifen
end;

oder:

Delphi-Quellcode:

TMDIChild = class(TForm)
private
  FDeineVar: Integer;
public
  property DeineVar: Integer read FDeineVar write FDeineVar; // Du kannst jetzt in jedem Child auf diese Variable separat zugreifen
end;

Falls dir das nicht bekannt vorkommt, empfehle ich dir n Grundlangentutorial.

mfg

Christian

[citybreaker]

--- Edit ---
Kann aus der unit main weder auf DeineVar noch auf DeineVarF zugreifen.

[x000x]

Moin moin,

also mein Vorschlag von oben kannste dann wieder vergessen...

Zitat von citybreaker:

Kann aus der unit main weder auf DeineVar noch auf DeineVarF zugreifen.

Dann haste etwas falsch gemacht...
Beispiel:

Delphi-Quellcode:

// ..
  private

    { Private-Deklarationen }
    procedure CreateMDIChild(const Name: string);
    procedure GetMeineVar;
  public
// ..

procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  Child := TMDIChild.Create(Application);
  Child.Caption := Name;
  CHild.DeineVar := 'BlaBlu';
end;

// ..

procedure TMainForm.GetDeineVar;
var i : Integer;
begin
   for i:=0 to MDIChildCount -1 do begin
      ShowMEssage(TMDIChild(MDIChildren[i]).DeineVar);
   end;
end;

und in deiner Unit mit Klasse TMDIChild deklarierst du
wie schon von r2c2 gesagt, deine Var

Delphi-Quellcode:

// ..
  public
    DeineVar : String;
  end;
// ..