Delphi TListBox选中项操作

--返回选中项值

function GetLstBoxValue(LstBox: TListBox): String;
begin
  Result:='';
  Result:=LstBox.Items[LstBox.ItemIndex];
end;

--返回选中项节点

function GetLstBoxIndex(LstBox: TListBox): Integer;
begin
  Result:=-1;
  Result:=LstBox.ItemIndex;
end;