نمایش Custom Field در گرید

[Mahmood_M]

یک Procedure برای فرم یا DataModule با Signature مشابه رویداد OnGetText مربوط به Field بسازید به این صورت :

procedure TForm1.MyFieldGetText(Sender: TField; var Text: String;

  DisplayText: Boolean);

begin

 case Sender.AsBoolean of

  True : Text := 'Auto';

  False : Text := 'Manual';

 else

  Text := '-';

 end;

end;

در رویدادی مثل OnAfterOpen مربوط به Query می تونید به این صورت، رویداد OnGetText مربوط به فیلد ها رو ست کنید :

procedure TDM.MyQueryAfterOpen(DataSet: TDataSet);

begin

 MyQuery.Fields[0].OnGetText := Form1.MyFieldGetText;

end;