如何用代码选择TDBEdit中的数据

就是我一点这个TDBEdit1，TDBEdit1中的数据就被全选，便于修改

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    dbedit1.SetFocus;
    dbedit1.SelectAll;
    end;
      

  2.   

    点一个按钮，让它全选是可以，但我是想点一下这个DBEdit1，让DBEdit1中的内容全选，刚才试了，在DBEdit1的OnEnter事件中添加了这段代码，不行
      

  3.   

    OnMouseDown事件和OnMouseClick事件从效果上来说没什么区别吧？我只想在DBEdit获得焦点时其内容全选，而要是把这段代码放在OnMouseDown事件或OnMouseClick事件中的话，一个已获得焦点的DBEdit在我再次用鼠标点的时候也会被全选，这就造成不便了
      

  4.   

    那你可以用一个变量来记录现在的焦点在哪个控件上啊，然后利用Sender比较不就行了吗？
      

  5.   

    if dbedit1.SelectAll=false then
    procedure TForm1.Button1Click;
      

  6.   

    koma2003(koma)，能否说得详细一点，我对焦点和Sender不甚了解