各位先進好！ 請教兩個問題: Q1:如何將DBgrid一 個Column中的資料顯示為'****'？ Q2:在StringGrid的cell[0,1]中寫入資料,當Focus離開cell[0,1]時, 如何立即將cell[0,1]的資料Copy to cell[0,5]? 謝謝!

1.試試設定 TField.DisplayFormat 為 **** 2.

var // 用全域變數記錄上個 Focus 所在的 Cell 的 Col/Row
  iPrevCol: integer = 0;
  iPrevRow: integer = 0;    procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if (iPrevCol = 0) and (iPrevRow = 1) then
    StringGrid1.Cells[0, 5] := StringGrid1.Cells[0, 1];      iPrevCol := ACol;
  iPrevRow := ARow;
end;

--- 歡迎光臨 KTop 研究院

感謝前輩hager的回應  我使用ADOquery(delphi5,DB:Access),沒有找到TField.DisplayFormat. 現在找到一個方法,但是還有些問題不能將某一Column顯示為'********',Code如下: 

procedure TForm1.GetFieldText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
  Text :='********';
end;    procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
  I: Integer;
begin
  with Dataset do
  for I := 0 to FieldCount - 1 do
     if Fields[I].FieldName='Pass' then
        with Fields[I] do
          OnGetText := GetFieldText;
end;

lol 你不會不要 select 那個欄位，這樣不就好了？ 如果你硬要顯示 '****' ，那自己加入不就得了 而要是你一定要那個欄位的資料，那就選取但不要顯示囉 而 '****' 就用一個本機的 fild 來假裝就好了啊！ 這樣也不過多一個 fild ，但可以達到你的要求又不會減慢執行速度與改寫煩雜的程式碼

在 TQuery 上點兩下, 出現一 Fields Editor 在 Fields Editor 上點右鍵, 加入您要的 Field(s) 然後點一下那個 Field, 按 F11, 就可以設定該 Field 的 DisplayFormat    --- 歡迎光臨 KTop 研究院

感謝syntax和hager前輩的指引. 上面syntax前輩提供的方法簡單直接,我找到另一方法補充如下:     //將'Password' column 的資料顯示為'********'  

 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.FieldName ='Password' then
     begin
        DBgrid1.Canvas.FillRect(Rect);
        DBgrid1.Canvas.TextOut(Rect.Left,Rect.Top,'********');
     end
end;