Mit TreeView Pages vom PageControl wechseln

[DeddyH]

Delphi-Quellcode:

procedure TPlanungMB.FertigungsbereichMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var 
  Node : TTreeNode;
  Sheet: TTabSheet;
begin
  Node := (Sender as TTreeview).GetNodeAt(X, Y);
  if Assigned(Node) then
    begin
      Sheet := Maschinen.FindComponent(Node.Text) as TTabSheet;
      if Assigned(Sheet) then
        Maschinen.ActivePage := Sheet;
    end;
end;

Getippt und nicht getestet, Fehler vorbehalten.