Текущий архив: 2004.08.29;
Скачать: CL | DM;
Вниз
изменение текста в dbGrid Найти похожие ветки
← →
сергей1 (2004-08-04 13:42) [0]Спасибо Соловьеву, подсказал как заменять текст в dbGrid, однако событие TField.OnGetText
доступно через FieldsEditor в design time только если Query уже содержит SQL код, а у
меня Query получает SQL запрос только во время работы программы, следовательно надо
устанавливать property form1.DBGrid1.Fields[0].OnGetText равным какой-нибудь процедуре,
а вот как она должна выглядеть ?
← →
roottim © (2004-08-04 13:53) [1]на BeforOpen твоего DataSet
← →
сергей1 (2004-08-04 14:20) [2]Я имел ввиду следующее :
Обьявляется процедура :
procedure GetText(Sender: TField;
var Text: String; DisplayText: Boolean);
Потом пишется ее реализация :
procedure GetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
IF Sender.Asstring = "True"
Then Text := "Есть"
Else Text := "Нет"
end;
а вот теперь как ее присвоить property :
form1.DBGrid1.Fields[0].OnGetText:=form1.GetText(как_здесь_указать_параметры);
← →
roottim © (2004-08-04 14:31) [3]
procedure TForm1.ADODataSet1BeforeOpen(DataSet: TDataSet);
begin
DataSet.Fields[0].OnGetText:= GetText;
end;
← →
сергей1 (2004-08-04 14:36) [4]спасибо
Страницы: 1 вся ветка
Текущий архив: 2004.08.29;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
