如何知道哪个DBEDIT拥有焦点?

fenger521 2003-06-18 05:43:00
在一个窗体中有8个dbedit控件与数据表的不同字段相连,如何知道哪个dbedit控件拥有焦点?   主要是想在其中的一个设置日期dbedit的控件能通过datetimepicker控件来输入时间,当这个设置日期dbedit的控件拥有输入焦点时,显示datetimepicker控件来输入时间,当这个设置日期dbedit的控件没有拥有输入焦点时便将datetimepicker控件隐藏。
...全文
20 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
firetoucher 2003-06-18
  • 打赏
  • 举报
回复
哈哈,只顾看答案,又当了一回老孔雀,颜面扫地啊~~~~~~~~
firetoucher 2003-06-18
  • 打赏
  • 举报
回复
我倒,microjuz(天才弟弟) 叫的够亲热的啊:)
有意思,网上近十载,你是第一这这么叫的:)

楼主可以在所有的edit的onenter事件中用
xiaocius 2003-06-18
  • 打赏
  • 举报
回复
应该有dbedit1.Focused用于判断该控件是否拥有焦点
microjuz 2003-06-18
  • 打赏
  • 举报
回复
小人物的办法是不可实用的..

to 风儿
放在哪个的地方都合适啊,不过有些地方是没有意义的,譬如你在一个button的onclick里写if form1.ActiveControl =edit1 then.......这时activecontrol明显是button啊
newsofter 2003-06-18
  • 打赏
  • 举报
回复
将Datetimepicker1控键放在DBEdit后面,只露出带有下拉三角部分即可
fenger521 2003-06-18
  • 打赏
  • 举报
回复
请问二楼的 procedure TForm1.Edit1Exit(Sender: TObject);如果用这个事件鼠标一点就datatimepicker就不能选时间。
fenger521 2003-06-18
  • 打赏
  • 举报
回复
请问一楼的 if form1.ActiveControl =edit1 then.......写在哪个事件中合适?
lovelymelon 2003-06-18
  • 打赏
  • 举报
回复
procedure TForm1.Edit1Enter(Sender: TObject);
begin
form1.DateTimePicker1.Visible:=true;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
form1.DateTimePicker1.Visible:=false;
end;
firetoucher 2003-06-18
  • 打赏
  • 举报
回复
if form1.ActiveControl =edit1 then.......
fenger521 2003-06-18
  • 打赏
  • 举报
回复
在线等 ,请高手不吝赐教。。

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧