[tahtah]

Возникла задача, а вместе с ней и потребность, в следующем компоненте

Нужен компонент ввода данных аналогичный TEdit/TDBEDIT, только чтоб
в нем можно было перед вводом вписать какой нибуть текст, например с просьбой ввести дату рождения. При вводе самих данных текст соответственно пропадает и вновь должен появиться при очищении данных в поле. Hint не то.

вот такая задача, может кто сталкивался с компонентами имеющими подобный функционал или сам писал для себя, буду очень рад помощи.....

p.s. в DevExpres у компонентов подобного функционала не нашел

[v1s2222]

А Вы уверены, что вам надо именно компонент? Если да, то почитайте нужную литературу и переделайте стандартный TEdit. Иначе - в раздел Работа

А вообще это можно сделать хоть так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := 'Введите ДР';
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if(Length(Edit1.Text) = 0) then // или if(Edit1.Text = '') then ...
    Edit1.Text := 'Введите ДР';
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  if(Edit1.Text = 'Введите ДР') then
    Edit1.Clear;
end;

[tahtah]

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

[Страдалецъ]

А сделать один универсальный обработчик для всех ваших едитов - вера не позволяет?

[ChinYan]

В D2010 (насчет более ранних не знаю) у компонентов TEdit есть свойство TextHint... оно как раз реализует нужный эффект...

[tahtah]

TextHint это как раз то, только данное свойсво появляется с версии 2009, а у меня 7(
..... вроде такая удобная и простая вещь, неужели нет ее реализации в TMS, LMD или Berg