AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Probleme mit Elementen In Frames

Ein Thema von Real_Thunder · begonnen am 25. Apr 2006 · letzter Beitrag vom 5. Mai 2006
 
Real_Thunder

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

Probleme mit Elementen In Frames

  Alt 25. Apr 2006, 13: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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:07 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz