Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c