！！！！如何使DBGrid某列所有的内容显示为“*”，相当于Edit.PassWordChar功能！！！

Question

在"字段编辑器"里加入表字段,在OnGetText()中: Text:='*'

Answer 1

procedure TForm1.Table1BDEDesignerGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := '*******';
end;

Answer 2

没有那两个事件呀，我用的是adotable！

Answer 3

type
  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    procedure ADOTable1AfterOpen(DataSet: TDataSet);
  private
    procedure PasswordFiledGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.PasswordFiledGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := '*******';
end;procedure TForm1.ADOTable1AfterOpen(DataSet: TDataSet);
begin
  DataSet.FieldByName('<密码字段名>').OnGetText := PasswordFiledGetText;
end;