恐怕你主要是不懂这一句吧?
tablename:=(Sender as TListBox).Items[(sender as TListbox).itemindex];
其实你肯定懂
TForm1.ListBoxDblClick (Sender:Tbject);
begin
with Adotable1 do
begin
close;
tablename:=ListBox.Items[Listbox.itemindex];
open;
end;
end;
对不对?这是说有一TListBox控件名为Listbox,
双击它时会将选中的项的内容赋给tablename为值
那么你肯定是对 (Sender as TListbox) 不懂了
那就先给分马上就给答复