DBEdit

← →
UMU © (2007-04-26 10:42) [0]

На форме расположено несколько DBEdit-ов. И для каждого написаны одинаковые события OnEnter и OnExit.

Подскажите, пожайлуста, как сделать одно событие для всех DBEdit-ов?

← →
ЮЮ © (2007-04-26 10:52) [1]

Назначит обработчик можно не только двойным кликом, порождая код нового обработчика, но и выбиряа в списке уже имеющиеся методы, которые могут быть обработчиками события. Поэтому достоточно оставить один ХХХEnter и назначить его всем DBEdit-ам

← →
UMU © (2007-04-26 11:10) [2]

> ЮЮ © (26.04.07 10:52) [1]

Извиняюсь за неточно сформулированный вопрос.

...для каждого написаны события OnEnter и OnExit в которых изменяется цвет конкретного DBEdit-a.

т.е.

procedure TForm1.DBEdit1Enter(Sender: TObject);
begin
DBEdit1.Color:=clWhite
end;

procedure TForm1.DBEdit2Enter(Sender: TObject);
begin
DBEdit2.Color:=clWhite
end;

а при большом кол-ве DBEdit получается нехорошо

← →
Плохиш © (2007-04-26 11:13) [3]

> UMU © (26.04.07 11:10) [2]

Ссылка на требуемый объект предаётся в параметре Sender
procedure TForm1.DBEdit1Enter(Sender: TObject); begin if (Sender <> nil) and (Sender is TDBEdit) then TDBEdit(Sender).Color:=clWhite end;

← →
UMU © (2007-04-26 11:20) [4]

Спасибо

← →
DYUK (2007-05-05 11:49) [5]

Подскажите, пожалуйста, как сделать так, чтобы в DBEdit, отображались вводимые данные.

> Подскажите, пожалуйста, как сделать так, чтобы в DBEdit,
> отображались вводимые данные.

А как сделать чтобы не отображались ? :)

DBEdit Найти похожие ветки