Tabsheet dynamisch erzeugen

[5etH]

Hallo Zusammen,

für mein aktuelles Programm möchte ich gerne Tabsheets erzeugen die ich aus einer DB entnehme, also können es beliebig viele sein.
Ich würde diese Sheets gerne nach einer Vorlage bauen (tabsheet2).

Meine Frage:
Wie kann ich dieses Tabsheet2 nun "kopieren"

ich hatte mir auch schonwas gebastelt, aber das funktioniert garnicht.

Delphi-Quellcode:

      newsheet := Ttabsheet.Create(Form1);
      with newsheet do
      begin
        Parent := pagecontrol1;
        Tag    := i;
        Name   := 'newsheet' + IntToStr(i);
        Caption:= 'newsheet' + IntToStr(i);

      end;

Ich hoffe das ihr mir weiter helfen könnt

lg Manu

[khh]

lege die Erstellung der sheets in eine Schleife.

Gruss KH

[mkinzler]

Leite eine eigene Klasse ab, von welcher du dann ableiten kannst.

[5etH]

1. ist in einer for-Schleife mit i

2. watt ? Bahnhof?

[mkinzler]

Zitat:

2. watt ? Bahnhof?

OOP ein Buch mit 1000 Siegeln?

[khh]

zeig mal die schleife

[5etH]

mehr als 1000 ^^, da war auch mein Lehrer an mir gescheitert aber mit java

Delphi-Quellcode:

for I := 0 to 5 do
begin
if stringgrid1.Cells[0,i] <> ' ' then
  begin
      newsheet := Ttabsheet.Create(pagecontrol1);
      with newsheet do
      begin
        Parent := pagecontrol1;
        Tag    := i;
        Name   := 'newsheet' + IntToStr(i);
        Caption:= 'newsheet' + IntToStr(i);

    end;

  end;

end;

[mkinzler]

Nur gut das die VCL streng objektorientiert ist

[_frank_]

mkinzlers antwort war auf deine Anforderung mit der Vorlage (Tabsheet2) bezogen

erstelle dir eine eigene Klasse, abgeleitet von TTabsheet, welche schon so ausieht wie Tabsheet2, diese kannst du als Grundlage für deine dynamisch erzeugten Tabsheets nehmen (TMyTabsheet.create statt TTabsheet.Create).

mal als grobes Konstrukt:

Delphi-Quellcode:

TMyTabsheet = class(TTabsheet)
  ...
public
  constructor create(owner:TComponent);
  destructor destroy;
end;

m contructor dann deine ganzen Controls erzeugen und positionieren, im destructor alles wieder freigeben.

HTH Frank