Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

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;
Спасибо все равно

---

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

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх

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