PageControl "Seitenverwaltung"

[Störtebeker]

Hi, man kennt es aus diversen Programmen:
Das gleichzeitige Öffnen von mehreren Datein.

Momentan erzeuge ich die Tabs wie folgt:

Delphi-Quellcode:

procedure TForm1.NeuClick(Sender: TObject);
var
  ts : TTabsheet;
  se: TSynEdit;
begin
  ts := TTabsheet.Create(PageControl4);
  ts.PageControl := PageControl4;
  se:= TSynEdit.Create(ts);
  se.Parent := ts;
  ts.Caption := 'Dokument 1';
end;

Nun möchte aber, dass

1) wenn ich einen neue Datei öffne, die Tabs einer nach dem anderen durchnummeriert wird wie
z.B. "Dokument 1" ; "Dokument 2" ; etc.

2) wie geht das dann mit dem Öffnen und Speichern der Tabs?

Danke schonmal im Voraus.

[blawen]

Deine Frage(n) verstehe ich nicht wirklich...

Gehts Dir nur um die Register-Beschriftung

Delphi-Quellcode:

ts.PageControl.Pages[2].Caption := 'Dokument 1';

oder wie die Seite gewechselt wird

Delphi-Quellcode:

ts.PageControl.ActivePage := ts.PageControl.Pages[1];

oder was möchtest Du genau wissen?

[Störtebeker]

Na ja, die Frage 1 ist, wie ich es schaffe, dass die Tabs automatisch beschriftet werden.

z.B.: Klick auf Neu... Erstelle Tab -> Caption: Dokument 1
Klick erneut auf Neu... Erstelle weiteren Tab -> Caption: Dokument 2

[blawen]

Zitat:

Zitat von Störtebeker

Na ja, die Frage 1 ist, wie ich es schaffe, dass die Tabs automatisch beschriftet werden.

Steht soweit in meiner vorherigen Antwort.

Ein weiteres Bsp.:

Delphi-Quellcode:

var
  iZaehler: Integer;

begin
  with PageControl1 do
    for iZaehler := 0 to 5 do
      with TTabSheet.Create(Self) do
        begin
          PageControl := PageControl1;
          Caption := 'Dokument ' + IntToStr(iZaehler);
        end;
end;

[Störtebeker]

Danke schonmal. :)

Wenn du zufällig auch das passene in Bezug aufs Öffnen und Speichern hättest, wäre ich glaube ich soweit.

[blawen]

Zitat:

Zitat von Störtebeker

Wenn du zufällig auch das passene in Bezug aufs Öffnen und Speichern hättest, wäre ich glaube ich soweit.

Mir ist nicht klar was Du unter "öffnen und speichern" verstehst. Kannst Du hier etwas genauer werden?

[Störtebeker]

- Ich möchte, dass wenn ich auf "Öffnen" klicke, ein neuer Tab erstellt wird, dessen Caption der
Dateiname ohne Pfad (c:/.../.../blabla.txt --> blabla.txt) ist.

- Beim Speichern möchte ich, dass der Dialog für das Speichern DEN Text speichert, dessen Tab gerade
aktiv ist. Müsste dann wahrscheinlich auch mit den Integerwerten gemacht werden, oder? Damit der
Dialog weiß, auf welchen Tab er zugreifen soll.

Hoffe, es ist etwas verständlicher geworden. :oops:

[alzaimar]

Bei dem PageControl müsste es eine Eigenschaft geben, die die aktive Seite (engl: Active Page) angibt.

[toms]

Hallo

Das aktuelle SynEdit kannst du so ermitteln.
(Vorausgesetzt, auf einem Tab befindet sich nur ein TSynEdit und kein anderes Control)

Delphi-Quellcode:

function TForm1.GetCurrentSynEdit: TSynEdit;
var
  i: SmallInt;
begin
  Result := nil;
  for i := 0 to PageControl1.ActivePage.ControlCount -1 do
  begin
    if (PageControl1.ActivePage.Controls[i] is TSynEdit) then
    begin
      Result := TSynEdit(PageControl1.ActivePage.Controls[i]);
      Break;
    end;
  end;
  // Assert(Result <> nil);
end;

[hoika]

Hallo,

um den Dateinamen des aktuellen Tabsheets zu ermitteln,
würde ich einfach ein unsichtbares TLabel
mit auf jedes neue TabSheet packen.
Dort speicherst du den Dateinamen.


Heiko