請問如何在dbedit點到時即把值全部選起來這個動作要如何做呢

您好：  

procedure TForm1.DBEdit1Click(Sender: TObject);
begin
  DBEdit1.SelectAll;
end; 

~~應無所住而生其心~~

那再請問一下,如果我按了tap鍵就要selectall起來,或者我點一下selectall然後再點其中的位罝想要將游標停在所選的位置,寫在onclick裡則不行,請問您有好一點的建議嗎?,謝謝您

 void __fastcall TForm1::Edit2Enter(TObject *Sender)
{
  Edit2->SelectAll();
}

~~應無所住而生其心~~

真是奇怪了,我寫在click裡有效,寫在enter郤沒有反應...奇怪 void __fastcall TFormCust::DBEdit3Enter(TObject *Sender) {//沒有反應 ShowMessage("in"); DBEdit3->SelectAll(); } void __fastcall TFormCust::DBEdit3Click(TObject *Sender) {//有反應,只不過不是我要的 ShowMessage("in"); DBEdit3->SelectAll(); ((TDBEdit*)Sender)->SelectAll();