| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Мастера, скажите, какое событие происходит? [D6, IB6.x]

Roki ©   (2003-02-26 15:03:00) 

Когда DBEdit получает текст. Мне надо сделать чтобы если текст не поместился , то Hint получил бы значение поля.

---

Roki   (2003-02-26 16:54:00) [1]

Вопрос закрыт. Работает так:
procedure TfMain.TXT_TCChange(Sender: TObject);
begin
(Sender as TDBEdit).Hint := (Sender as TDBEdit).DataSource.DataSet.FieldByName((Sender as TDBEdit).DataField).AsString;
end;
Причем у меня много едитов, и у всех этот обработчик....

---

ermserg   (2003-02-26 16:50:00) [2]

Ti ne tot event ispolzuyesh. Lovi prichinu a ne sledstviye, obrabativay DataSet.AfterScroll

---

Dona   (2003-02-26 16:47:00) [3]

В ДатаСорсе вроде есть обработчик события OnDataChange(Field)

если Assigned(Field) - то перемещаемся к др.записи

---

Roki   (2003-02-26 16:44:00) [4]

> if Sender is TDBEdit then
> TDBEdit(Sender).Hint := TDBEdit(Sender).Field.AsString

этот код у меня не работает когда меняется курсор НД...

---

ermserg   (2003-02-26 16:30:00) [5]

if Sender is TDBEdit then
TDBEdit(Sender).Hint := TDBEdit(Sender).Field.AsString

---

Roki   (2003-02-26 16:22:00) [6]

Спасибо, написал:
(Sender as TDBEdit).Hint := (Sender as TDBEdit).DataSource.DataSet.FieldByName((Sender as TDBEdit).DataField).AsString;
Работает высший класс.

---

Johnmen   (2003-02-26 16:03:00) [7]

OnChange возможно подойдет...

---

Наверх