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

OnChange - явный вызов   Найти похожие ветки 

← →
chir   (2005-01-11 02:21) [0]

Как мне явно вызвать привязанное к чему-нибудь событие OnChange?

например такое:

procedure TForm1.cxDBTL_DearChange(Sender: TObject);
begin
 RichEdit1.Lines.Add("cxDBTL: OnChange");
 DM.ADOQ6.Close;
 DM.ADOQ6.SQL.Text := "SELECT id_station, name FROM stations WHERE"+
   " id_dear="+DM.ADOQ5.FieldByName("id_dear").AsString+
   " ORDER BY name";
 DM.ADOQ6.Open;
end;

---

← →
chir   (2005-01-11 02:34) [1]

разобрался уже. спасибо

---

← →
Поручик ©   (2005-01-11 03:06) [2]

Молодец
Удачи

---

← →
Дмитрий В. Белькевич   (2005-01-11 03:16) [3]

Нужно

RichEdit1.Lines.Add("cxDBTL: OnChange");
DM.ADOQ6.Close;
DM.ADOQ6.SQL.Text := "SELECT id_station, name FROM stations WHERE"+
  " id_dear="+DM.ADOQ5.FieldByName("id_dear").AsString+
  " ORDER BY name";
DM.ADOQ6.Open;

Выделить в отдельную процедуру и обращаться к ней откуда нужно. Так - правильнее.

---

← →
Fay ©   (2005-01-11 03:23) [4]

Дмитрий В. Белькевич   (11.01.05 3:16) [3]
А как Вы думаете, что будет, если DM.ADOQ5.FieldByName("id_dear").IsNull = True?

---

← →
chir   (2005-01-11 03:25) [5]

не... отдельная процедура не нужна. так мне подходит. да и это тоже всетаки процедура :). Через Sender можно узнать какой объект вызывает ее, а мне это очень важно. :)

> Поручик
Спасибо, она мне не помешает :)

Вообще всем спасибо! Вы мне Реально помогаете, за что я вас пресильно благодарю. Делаю курсовик за прошлый! семестр, поэтому времени катастрофически не хватает и совсем нет времени на погружение в литературу. Приходится справляться имеющимися знаниями (не большими), а вопросов все же много возникает... В которых помогаете вы! Еще раз всем спасибо!

---

← →
chir   (2005-01-11 03:29) [6]

> Fay
по идее случится беда. Спасибо за находку! Благо в этой таблице id_dear является ключем и Null не может быть. Но я приму это во внимание при дальнейшей разработке.

И еще спасибо за .IsNull - я все думал какже мне на null проверку сделать :)

---

← →
Fay ©   (2005-01-11 06:07) [7]

2 chir   (11.01.05 3:29) [6]
Самое интересное - исходный вопрос я так и не понял 8)

З.Ы.
Удачи

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.039 c