ongettext

[farrokhi]

باسلام .من بصورت ديناميكADOQuery رو پر مي كنم حالا چطوري مي تونم به رويدادongettext يك فيلد خاص دسترسي داشته باشم و براش كد بنويسم؟

[vcldeveloper]

وقتی بطور دینامیک پر می کنید، رویدادها رو هم باید بصورت دینامیک مقدار بدید، مثلا:


type
TForm1 = class(TForm)
ADODataSet1: TADODataSet;
procedure FormCreate(Sender: TObject);
public
procedure OnGetText(Sender: TField; var Text: string; DisplayText: Boolean);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Text := 'Test';
DisplayText := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
AdoDataset1.Fields[0].OnGetText := OnGetText;
end;

end.