Guten Morgen Zusammen,
ich habe in meinem Programm ein TreeView, der mit Daten aus einer Datenbank heraus erstellt wird. Auf dem Form daneben habe ich ein PageControl angeorndet, dem ich beim Starten des Programmes soviele TabSheets mit StringGrids erzeuge, wie ich Werte in meinem TreeView habe. Bis hierhin klappt alles wunderbar.
Jetzt möchte ich zwischen den TabSheets wechseln, indem ich einen Wert (Node) in dem Treeview anwähle. Die TabSheets haben den gleichen Name wie die Werte im TreeView (Text vom Node)...
Das habe ich versucht:
Delphi-Quellcode:
procedure TPlanungMB.FertigungsbereichMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Node : TTreeNode;
begin
if Maschinen.FindComponent(Node.Text)<>nil then
begin
Maschinen.ActivePage.Name:=Node.Text;
end;
end;
Maschinen ist das PageControl, auf welchem die TabSheets liegen...
Das ist das erste Mal, dass ich mich an dynamisch erzeugten Komponenten versuche und ich hoffe, dass Ihr mir helfen könnt...
Vielen Dank
Ykcim