Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID
PESQUISAR DICA:
ONGETTEXT - ATRIBUIR UMA PROCEDURE AO EVENTO ONGETTEXT EM RUN-TIME procedure TForm1.GetText(Sender: TField; var Text: string; DisplayText: Boolean); begin Text := Sender.AsString; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin Table1.FieldByName('Codigo').OnGetText := GetText ; end;