疑难杂证-关于找到当前光标所在控件的方法 急 deng ( 积分: 200 )

  • 主题发起人 主题发起人 dzl19
  • 开始时间 开始时间
D

dzl19

Unregistered / Unconfirmed
GUEST, unregistred user!
在A界面有非常多个控件,如Edit1,Edit2,Edit3。。。和Edit1000,当前光标可能在其中一个上,从A界面进入B界面获取一个数值后,再退到A界面,并把该数值写给A界面的当前光标上。
想通过通用的方法,用以处理该结果,请指点!!
谢谢!
 
按照你的思路可以这样做:找到光标的位置,算出其在窗体内的相对位置,然后遍历控件,根据Top和Left属性的最相似去定位控件,但是这样做确实很麻烦,况且遍历还是比较费时的。
这个问题可以这样变向解决啊。
获得控件的指针,然后赋值。
我举个例子:你把所有的Edit控件的OnEnter事件中写入:
Current_Edit:TEdit;
procedure TEdit.OnEnter(Sender:Tobject)
begin
Current_Edit:=TEdit(Sender);//获得控件的指针
end;
进行B界面操作;
返回时:
Current_Edit.text:=某个值;
 
问题是,从A进入B时候,如果没有记录下当前的所在控件。
并且,当前的控件可能的非常多。
有没有通用的方法,在从B回到A时候,用一个方法重新找到应该在哪个控件?
 
后退
顶部