Einzelnen Beitrag anzeigen

Benutzerbild von x000x
x000x

Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
 
Delphi XE2 Professional
 
#10

Re: Für jedes Child eine variable

  Alt 21. Aug 2005, 22:02
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;
// ..
Peter
-= Gruss Peter =-
-= alias x000x =-
  Mit Zitat antworten Zitat