![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
DBEdit
UMU © (2007-04-26 10:42:00)На форме расположено несколько DBEdit-ов. И для каждого написаны одинаковые события OnEnter и OnExit.
Подскажите, пожайлуста, как сделать одно событие для всех DBEdit-ов?
Kostafey (2007-05-05 12:21:00) [1]> Подскажите, пожалуйста, как сделать так, чтобы в DBEdit,
> отображались вводимые данные.
А как сделать чтобы не отображались ? :)
DYUK (2007-05-05 11:49:00) [2]Подскажите, пожалуйста, как сделать так, чтобы в DBEdit, отображались вводимые данные.
UMU (2007-04-26 11:20:00) [3]Спасибо
Плохиш (2007-04-26 11:13:00) [4]
> 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:10:00) [5]
> ЮЮ © (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 10:52:00) [6]Назначит обработчик можно не только двойным кликом, порождая код нового обработчика, но и выбиряа в списке уже имеющиеся методы, которые могут быть обработчиками события. Поэтому достоточно оставить один ХХХEnter и назначить его всем DBEdit-ам