求助:如何把ListBox1选定的值赋给某一个变量??

Question

如何把ListBox1,memo1,combobox1,DBLookupListBox1,DBLookupComboBox1选定的值赋给某一个变量?
如:edit1.text:=listbox1.?;试了很多次,无解,求助多谢

Answer 1

Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];

Answer 2

非DB控件就如1#，如果是DB控件也可以通过读取与之相关联的cds的Field来获得

Answer 3

这要看如何选啦,比如MEMO的话,就在MOUSEUP事件里写上procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if trim(memo1.SelText) <> '' then
    edit1.text:= memo1.SelText;
end;