坐 坐井看天阔 Unregistered / Unconfirmed GUEST, unregistred user! 2009-04-23 #1 我想请问一下怎样从上一个编辑框跳到下一个编辑框后让其中的内容处于全部选中状态。就比如说有两个dbedit，要实现从dbedit1跳到dbedit2（已经通过变量继承了上次的值）时让它里面的内容全部选中。谢谢！！！
我想请问一下怎样从上一个编辑框跳到下一个编辑框后让其中的内容处于全部选中状态。就比如说有两个dbedit，要实现从dbedit1跳到dbedit2（已经通过变量继承了上次的值）时让它里面的内容全部选中。谢谢！！！
L luchlooh Unregistered / Unconfirmed GUEST, unregistred user! 2009-04-23 #2 我记得TEDIT本就就有这样的属性呀，你可以设置不全选或全选的吧
Z znxia Unregistered / Unconfirmed GUEST, unregistred user! 2009-04-23 #3 用Tab键跳的时候，会自动选中的啊(属性AutoSelect=true)。或者用下面2个事件来处理：procedure TForm1.Edit2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if Edit2.Tag=1 then Edit2.SelectAll; Edit2.Tag :=0;end;procedure TForm1.Edit2Enter(Sender: TObject);begin Edit2.Tag:=1;end;
用Tab键跳的时候，会自动选中的啊(属性AutoSelect=true)。或者用下面2个事件来处理：procedure TForm1.Edit2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if Edit2.Tag=1 then Edit2.SelectAll; Edit2.Tag :=0;end;procedure TForm1.Edit2Enter(Sender: TObject);begin Edit2.Tag:=1;end;
坐 坐井看天阔 Unregistered / Unconfirmed GUEST, unregistred user! 2009-04-23 #4 我是用 回车 跳转的，因为要录入数据，这样才方便，而且autoselect我也设了，好像是不起作用。对了，我跳的时候有时用的是perform(nextdlgctl,0,0)，有时用的是X.setfocus;还想请教！
我是用 回车 跳转的，因为要录入数据，这样才方便，而且autoselect我也设了，好像是不起作用。对了，我跳的时候有时用的是perform(nextdlgctl,0,0)，有时用的是X.setfocus;还想请教！
Z znxia Unregistered / Unconfirmed GUEST, unregistred user! 2009-04-23 #5 perform(nextdlgctl,0,0)? 更改为： if Key=#13 then SelectNext(ActiveControl, True, True); --------X.setfocus;测试发现可以自动全部选中。
perform(nextdlgctl,0,0)? 更改为： if Key=#13 then SelectNext(ActiveControl, True, True); --------X.setfocus;测试发现可以自动全部选中。
R roadexplorer Unregistered / Unconfirmed GUEST, unregistred user! 2009-04-24 #7 (SENDER AS TEDIT).SELECTALL
