AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Frames über deren Namen dynamisch aufrufen
Thema durchsuchen
Ansicht
Themen-Optionen

Frames über deren Namen dynamisch aufrufen

Ein Thema von ensacom · begonnen am 8. Dez 2008 · letzter Beitrag vom 8. Dez 2008
 
ensacom
(Gast)

n/a Beiträge
 
#1

Frames über deren Namen dynamisch aufrufen

  Alt 8. Dez 2008, 14:16
Hallo, ich benutze folgenden Code um Frames zur Laufzeit in meine Form zu laden


Delphi-Quellcode:
private
    FActiveFrame:TFrame; //zum merken des derzeit aktiven Frames



uses
  UnitFrameShowInteressenten, UnitFrameAddInteressent, UnitFrameObjekte;




procedure TForm1.Button1Click(Sender: TObject);
begin
  if (not assigned(FActiveFrame)) or not (FActiveFrame is TFrameShowInteressenten) then
  begin
    freeandnil(FActiveFrame);
    FActiveFrame:=TFrameShowInteressenten.Create(self);
    FActiveFrame.Parent:=TabSheet1;
    TabSheet1.Caption := 'Interessenten';
  end;
end;




procedure TForm1.Button2Click(Sender: TObject);
begin
  if (not assigned(FActiveFrame)) or not (FActiveFrame is TFrameObjekte) then
  begin
    freeandnil(FActiveFrame);
    FActiveFrame:=TFrameObjekte.Create(self);
    FActiveFrame.Parent:=TabSheet1;
    TabSheet1.Caption := 'Objekte';
  end;
end;

Kann mir nun einer sagen wie ich das ganze so aufrufen kann, dass ich nur den Namen des Frames angeben brauche?

Danke
  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 02:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz