如dbedit1的datafield是cus_no 但在mouse點dbedit1時才顯示cus_no(客戶編號)的值; 反之則顯示cus_name(客戶名稱)的值

沒測試，您試試看. procedure TForm1.DBEdit1Enter(Sender: TObject); begin DBEdit.DataField:='cus_no'; end; procedure TForm1.DBEdit1Exit(Sender: TObject); begin DBEdit.DataField:='cus_name'; end;