[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

[tahtah]

еще нарыл по данной теме EM_SETCUEBANNER Message
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx
но в winapi не селен, не поможите с кодом исспользования

[NumLock]

Код:

unit Unit1;

interface

uses
  CommCtrl,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit2: TEdit;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  EM_SETCUEBANNER = $1501;

implementation

{$R *.dfm}
{$R WindowsXP.RES}

procedure SetCueBanner(Sender: TWinControl; Banner: String);
var
  buf: array [0..$ff] of Char;
begin
  Banner:=UTF8Encode(Banner+#0);
  Utf8ToUnicode(PWideChar(@buf), PAnsiChar(Banner), Length(Banner));
  SendMessage(Sender.Handle, EM_SETCUEBANNER, 0, Integer(@buf));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetCueBanner(Edit1, 'Введите имя, ога');
end;

initialization
  InitCommonControls;

end.

http://data.cod.ru/90349

[tahtah]

спасибо за пример.

с обычным TEditom вроде все понятно, а вот как быть с data-aware компонентами, например тем жем TDBEdit