Hallo,
Dit is het uiteindelijk geworden:
Code:
PROCEDURE TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
BEGIN
Node := TreeView1.Selected;
IF Node = nil THEN Exit;
IF Node.Parent <> nil THEN
BEGIN
Label1.Caption := 'Hoofdstuk : ' + Node.Parent.Text;
Label2.Caption := 'Titel : ' + Node.Text;
END
ELSE BEGIN
Label1.Caption := 'Hoofdstuk : ' + Node.Text;
Label2.Caption := '';
END;
END;
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
TreeView1.Free;
end;
PROCEDURE TForm1.TreeView1Collapsed(Sender: TObject; Node: TTreeNode);
BEGIN
Label2.Caption := '';
Label1.Caption := 'Hoofdstuk : ' + Node.Text;
END;
Bedankt, ik nu verder het het project waar ik dit nodig heb.
H.G. Frans
Bookmarks