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 проверку сделать :)

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

З.Ы.
Удачи

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