Скачать: CL | DM;

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, отображались вводимые данные.

---

← →
Kostafey ©   (2007-05-05 12:21) [6]

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.972 c