Ein simples Tabsheet zuweisen...

[Delbor]

Hi zusammen
In einem Popupfenster will ich verschiedene Infos anzeigen. Aktuell die Grösse der vorhandenen Laufwerke, um nach freier Wahl (oder dem mit dem grössten freien Speicher) eine Datenbank anzulegen. Zu dem Zweck habe ich einer Form den

Delphi-Quellcode:

function TDMLSQLiteOfficerFE.DedectBiggestFreeSpace: Char;
  var i :integer; PopupWindow: TPopupWindow;
begin
  PopupWindow := TPopupWindow.Create(Self);
  PopupWindow.PopupMode := pmExplicit;
  PopupWindow.PopupParent := HomeOfficerFeMain;
  PopupWindow.RzPageControl1.ActivePage := 'TabSheet1';
end;

Normalerweise war Activepage immer durch die übergabe einesStrings gesetzt. Hier funktioniert das offensichtlich nicht. Ich hab schon versucht, einen integer oder eine Klasse (TRzTabsheet) zu übergeben - nichts. Waas mache ich falsch?

Gruss
Delbor

[TiGü]

Immer wenn ich Probleme mit Sichtbarkeiten mit dynamisch zugewiesenen visuellen Komponenten habe, dann habe ich die Parent-Eigenschaft vergessen.

[Delbor]

Hi Tigü

Oh Mann, bin ich vielleicht erleichtert - und dabei hab ich mich schon nach einem Mausloch umgesehen, um mich möglichst tief zu verstecken...

Meine Lösung bisher:

PopupWindow.RzPageControl1.ActivePage := PopupWindow.RzPageControl1.Pages[0];
Also wirklich explizites Adressieren der Pagesmit dem entsprechenden Index.

Soviel ich mich mag erinnern, funktioniert die Zuweisung über den Namen/Caption so beim originalen Delphi-PageControl. Wieso das so bei den Raize-Komponenten nicht geht, ist mir ein Rätsel. Allerdings gehe ich schon davon aus,dass beide den selben Vorfahren haben. (TCustomPageContol).

Gruss
Delbor

[Uwe Raabe]

Zitat von Delbor:

Allerdings gehe ich schon davon aus,dass beide den selben Vorfahren haben. (TCustomPageContol).

Eher nicht:

Delphi-Quellcode:

TRzCustomTabControl = class( TCustomControl )
TRzPageControl = class( TRzCustomTabControl )

Funktioniert aber bei TPageControl auch nicht und ein TCustomPageControl gibt es gar nicht.

Zitat von Delbor:

PopupWindow.RzPageControl1.ActivePage := PopupWindow.RzPageControl1.Pages[0];

Einfacher wäre vielleicht:

Delphi-Quellcode:

PopupWindow.RzPageControl1.ActivePageIndex := 0;

Funktioniert übrigens bei TPageControl und TRzPageControl.

[Delbor]

Hi zusammen

Herzlichen Dank für eure Antworten.


@Uwe Raabe: Ja richtig, und Zeit hätte ich mir auch gespaart.

Gruss
Delbor