Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
13. Feb 2004
Aber na gut ;-)
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Node.Data <> nil then
PageControl1.ActivePage := TTabSheet(Node.Data);
end;
...:cat:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
13. Feb 2004
Suche mal hier casten, da wirst Du fündig.
...:cat:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
13. Feb 2004
So habe ic es auch mal gelöst. Den TreeView zur Laufzeit erstellen und die einzelnen TabSheets der Data-Eigenschaft des TreeView-Items zuordnen. Wird ein TreeView-Item ausgewählt, nimmst Du die Data-Eigenschaft, castest die wieder zum TabSheet und setzt diese als ActivePage ;-)
...:cat:...