Einzelnen Beitrag anzeigen

Real_Thunder

Registriert seit: 25. Apr 2006
197 Beiträge
 
#1

Probleme mit Elementen In Frames

  Alt 25. Apr 2006, 14:27
Hallo erstamel.

Gleich vorweg möchte ich sagen das ich ein Delphi Neuling bin, und schon seit Tagen mit Google und in div. Foren Nach der Antwort Gesucht Habe... doch nichts gefunden....

Hier nun mein Problem:

Ich erstelle zur laufzeit Frames <= klappt Wundrbar;

beispiel:
Ich klicke auf button 1 und ein frame wird erstellt, wenn ich nun auf button 2 klicke soll der erste frame freigegeben werden, und der 2 erscheinen <= klappt auch wunderbar.

dies soll immer so weitergehen..
Also wenn ihc ein frame erstelle, soll das frame das gerade geöffnet ist freigegeben werden

ds Klappt auch, aber wenn ich nun auf ein element von dem Frame zugreifen möchte dann gibt es eine fehlermeldung
"Undefinierter Bezeichner".
Hier Poste ich mal den Quellcode der Unit

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, frame1, frame31, frame41;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;

    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  anz_frame: TFrame;


implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  anz_frame.Free;
  anz_frame:=TFrame2.Create(self);
  with anz_frame do
  begin
     Parent:=Form1;
     Left:=16;
     Top:=48;
     width:=700;
     height:=400;
  end;
  anz_frame.edit1.text='Test';

end;

procedure TForm1.Button2Click(Sender: TObject);

  begin
  anz_frame.Free;
  anz_frame:=TFrame3.Create(self);
  with anz_frame do
  begin
     Parent:=Form1;
     Left:=16;
     Top:=48;
     width:=700;
     height:=400;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
  begin
  anz_frame.Free;
  anz_frame:=TFrame4.Create(self);
  with anz_frame do
  begin
    Parent:=Form1;
    Left:=16;
    Top:=48;
    width:=700;
    height:=400;
  end;
end;

end.

das feld edit 1 Existiert auf der Frame.


ich danke Im Vorraus für eure Hilfe

MfG real_Thunder
  Mit Zitat antworten Zitat