如何取得当前控件？

Question

我在一个窗体上放有几个ListView和几个控件，分别计算不同的表数据在上面，我还有一个到入到
Excel功能的按钮，我想让当前显示的Listview,在我点导入Excel按钮时，我什么取得当前的ListView?????

Answer 1

你是用什么分开显示的listView
用PageControl还是NoteBook
还是在窗体上列了几个？
最好用PageControl之类的

Answer 2

也许是个笨办法!加一个跟踪变量,你点击一次listview,这个变量负责记下你最后一次点的listview的序号或什么的.
点导入时,根据这个变量的值来判断该怎么做.

Answer 3

if tlistview(self.activecontrol)<>nil then ...可以在listview的onclick事件里加上这样几句:
btnimportexcel(导入Excel按钮).tag:=Integer(Pointer(listview));
在btnimportexcel.onclick里:
Tlistview(Pointer(btnimportexcel.tag))就是你要的的listview了.可以参考:
http://blog.csdn.net/iseekcode/archive/2009/10/31/4751344.aspx

Answer 4

var
  lastobj:Tcomponent; //Tlistview;每个listview的onexit事件里：
  lastobj:=sender;在按钮事件里对lastobj进行处理

Answer 5

既然是NoteBook那就根据NoteBook的pageindex判断就好了.
比如:
case notebook.pageindex of
0:listview1....
1:listview2....
.....
end;