B brilliant83 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-11 #1 请问如何实现双击控件使控件中的文本全部被选择？例如：双击EDIT控件后使EDIT里面的文本全部被选中。
吉 吉祥鸟 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-11 #3 procedure TForm1.Edit1DblClick(Sender: TObject); begin edit1.SelectAll ; end;
S shenloqi Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-11 #5 是什么控件？ 有OnDbClick事件么？没有就按照D5编程人员指南上的方法虚拟一个， 然后如果是CustomEdit之类的都可以Selectall的。
高 高小五 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-11 #6 将Edit的AutoSelection设为True,不用写程序
B brilliant83 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-12 #8 用SelectAll，有时可以，有时又不可以，这是怎么回事。请教！ 而且在有的edit里可以，在有的edit里不可以，而且有的EDIT里的文本未段双击可以，而有的在EDIT的任何地方双击都可以实现全选，这又是为什么？
用SelectAll，有时可以，有时又不可以，这是怎么回事。请教！ 而且在有的edit里可以，在有的edit里不可以，而且有的EDIT里的文本未段双击可以，而有的在EDIT的任何地方双击都可以实现全选，这又是为什么？
Y yueer Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-12 #10 实在不行的话只有这样了： procedure TForm1.Edit1DblClick(Sender: TObject); begin edit1.SelStart := 0; edit1.SelLength := Length(Edit1.text); edit1.setfocus; end; 一定行的！
实在不行的话只有这样了： procedure TForm1.Edit1DblClick(Sender: TObject); begin edit1.SelStart := 0; edit1.SelLength := Length(Edit1.text); edit1.setfocus; end; 一定行的！
