Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.055 c
14-1091822110
Undert
2004-08-06 23:55
2004.08.29
Хех


3-1091719334
}|{yk
2004-08-05 19:22
2004.08.29
Как получить день недели в Oracle?


1-1092396169
antonn
2004-08-13 15:22
2004.08.29
Опять рабочий стол...


14-1092121148
Kurtevich
2004-08-10 10:59
2004.08.29
Помогите! "Косынка" глючит!! :(


1-1092643707
an-na2002
2004-08-16 12:08
2004.08.29
Возврат к проверке