OnChange на BDEdit когда он происходит?

← →
Roman_kv (2003-03-25 18:08) [0]

При создании формы вызываю позиционирование записи на датасете, но при показе OnChange происходит для каждого DBEdit, на сколько я понимаю OnChange должен срабатывать на изменения, а не на отображения?
пример такой один обработчик на все DBEdit-ы
procedure TForm1.Change(Sender: TObject); begin TDBEdit(Sender).Font.Style:=[fsBold]; end;
После открытия формы все DBEdit-ы становятся Bold, в чем я не прав?

← →
Соловьев (2003-03-25 18:11) [1]

> срабатывать на изменения, а не на отображения?

нет как раз все нормально.
Нужно делать не в этом событии, а проверив статус записи: модифицырована, вставлена - менять соответсвенно шрифт.

← →
Roman_kv (2003-03-25 18:13) [2]

а можно примерчик, плиз

← →
Соловьев (2003-03-25 18:21) [3]

procedure Tf_ClientAdmin.dbGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with TDBGrid(Sender) do begin if DataSet.UpdateStatus = usModified then Canvas.Font.Style := [fsBold]; if DataSet.UpdateStatus = usInserted then Canvas.Font.Style := [fsItalic]; DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end;

← →
Roman_kv (2003-03-26 01:26) [4]

Нашел более простое решение
procedure TForm1.ChangeData(Sender: TObject); begin if TDBEdit(Sender).Modified then TDBEdit(Sender).Font.Style:=[fsBold]; end;
Спасибо все равно

OnChange на BDEdit когда он происходит? Найти похожие ветки