Internet Browser mit Delphi: unbegrenzt viele Registerkarten zur Laufzeit

[entwickler]

Leute, meine Tastatur ist kaputt; Wie soll ich so schnell stellung nehmen?! Jetzt ma langsam:

himitsu: Kannst du mir den Teil ab TPageControl bitte nochmal erklären?

Neutral General: Jetzt übertreib bitte nicht so Ich meine für anspruchsvolle Benutzer, wenn du von dieser Ebene sprichst. Ich möchte nur wissen, wie man (NAHEZU) unbegrenzt viele Komponenten zur Laufzeit zur Verfügung stellen kann.

s.h.a.r.k: Ich benutze Delphi noch nicht sonderlich lange (ca. 1Jahr) und das ist das erste mal, dass ich soetwas versuche.

by Daniel: Mit Streams habe ich noch nie gearbeitet. wie funktionieren die?

Ganz ehrlich, Leute, so langsam bekomme ich das Gefühl, als würde ich das 1. Mal mit Delphi arbeiten.

[Luckie]

Zitat von entwickler:

himitsu: Kannst du mir den Teil ab TPageControl bitte nochmal erklären?

Na genauso wie man jedes andere Steuerelement zur Laufzeit erzeugen kann, kann man das auch mit den Seitenreiteren eine PageControllsmachen.

[entwickler]

Also:

Delphi-Quellcode:

procedure Form1.Button1Click(Sender:Object);
var
  Registerkarte: TPageControl;
begin
  Registerkarte:= TPageControl.Create(Application);
  Registerkarte.Parent:= Form1;
  try
  //........Anweisung
  finally
   Registerkarte.Free;
  end;
end;

Ach so, wo finde ich diese Grundlagen ( OOP )?

OKAY, ich komm nachher wieder, muss jetzt weg...

[entwickler]

oh, als der letzte Beitrag kam, habe ich noch geschrieben...
Danke!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!

[s.h.a.r.k]

Zitat von entwickler:

Also:

Delphi-Quellcode:

procedure Form1.Button1Click(Sender:Object);
var
  Registerkarte: TPageControl;
begin
  Registerkarte:= TPageControl.Create(Application);
  Registerkarte.Parent:= Form1;
  try
  //........Anweisung
  finally
   Registerkarte.Free;
  end;
end;

Dir ist schon klar, dass wenn du ein Objekt wieder freigibst, es verschwindet? Ich glaube nicht, dass du ein PageControl erzeugen und danach gleich wieder aus dem Speicher entfernen willst.

Zitat von entwickler:

Ach so, wo finde ich diese Grundlagen ( OOP )?

Man findet über Google sehr viel darüber Ein wenig Eigenleistung wird hier schon verlangt.

[himitsu]

Delphi-Quellcode:

X := TTabSheet.Create;  // Tab erstellen
...
X.SetPageControl(PageControl1);  // Tab ins PageControl

Und zu dem was Daniel sagte, macht sich ein TabControl ganz gut, a man dort ja nur die Tabs und keine Pages benötigt.
TabControl1.Tabs.Add('name des Tabs'); .
An die "Objekte" der einzelnen Strings/Tabs könnte man die Daten der jeweiligen Pages dranhängen.

InsertTab und IntertPage sind interne Methoden des TPageControl (sman sollte genauer hingucken ),
welche dann aber z.B. von TTabSheet.SetPageControl verwendet werden.

[Luckie]

Jetzt habe ich mir die Mühe gemacht, jetzt will ich auch noch mal:

Delphi-Quellcode:

procedure TForm1.btnAddTabClick(Sender: TObject);
var
  ts: TTabSheet;
begin
  ts := TTabSheet.Create(nil);
  ts.Caption := IntToStr(pgcTest.PageCount) + '. Sheet';
  ts.PageControl := pgcTest;
  pgcTest.ActivePageIndex := pgcTest.PageCount - 1;
end;

procedure TForm1.btnRemoveTabClick(Sender: TObject);
var
  ts: TTabSheet;
begin
  ts := pgcTest.ActivePage;
  ts.Free;
end;

[entwickler]

Wow, da kam in den letzten Stzunden einiges zusammen. Danke für den Code, und ja, ich werde mich über google oder so über die OOB informieren; dass ich Eigenleistung einbringen muss, ist mir klar.
Es funzt sogar bei meiner Delphi-Version . Danke für all die Hinweise, Tipps, etc.

[s.h.a.r.k]

Will nicht kleinlich sein, aber das "Ding" schimpft sich nicht Objekt-orientierte Brogrammierung, sondern OOP -> Programmierung

[entwickler]

Oops Sorry, s.h.a.r.k. OOP, so besser?