lazarus 开发 判断当前选中的是文件还是文件夹

在Lazarus开发中，我们可以使用Delphi语言中的TTreeView组件来判断当前选中的是文件还是文件夹。

首先，我们需要在Form的设计模式中添加一个TTreeView组件，命名为TreeView1。

然后，在程序代码中，可以通过以下方式来判断当前选中的是文件还是文件夹：

1. 首先，我们需要确定是否有选择项被选中。可以通过TreeView1.Selected节点来判断，如果该节点为空，则表示没有选择项被选中。

2. 接下来，我们可以判断选中的节点是文件还是文件夹。可以通过TreeView1.Selected.Data值的类型来判断，如果该值为空，则表示选中的是文件夹；如果该值不为空，则表示选中的是文件。

下面是示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  SelectedNode: TTreeNode;
begin
  SelectedNode := TreeView1.Selected;
  
  if SelectedNode = nil then
  begin
    ShowMessage('请先选择一个节点！');
    Exit;
  end;

  if SelectedNode.Data = nil then
  begin
    ShowMessage('选中的是文件夹！');
  end
  else
  begin
    ShowMessage('选中的是文件！');
  end;
end;

以上代码中，通过判断TreeView1.Selected节点是否为空来确定是否有选中项。然后，通过判断TreeView1.Selected.Data的值是否为空来确定选中的节点是文件夹还是文件。

希望以上解答对您有帮助！