Создание TEdit (Edit1)

[gree]

Возможно ли в Delphi создать поле ввода значения так чтоб при запуске программы в нем отображалось пояснение что в него нужно вводить но чтоб потом не удалять её а она автоматически исчезала после того как мы введем значение какое нибудь, иными словами в поле ввода имени на сайтах написано прямо в нем.. ну например в яндексе.. пример:

[russian-stalker]

Ну я думаю примерно вот так:

procedure TForm1.Edit1Click(Sender: TObject);
begin
if edit1.Font.Color=clgray then
begin
edit1.Text:='';
edit1.Font.Color:=clblack;
end;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.Font.Color:=clblack;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Font.Color:=clgray;
edit1.Text:='Логин';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (not edit1.Focused) and (stringreplace(edit1.Text,' ','',[rfReplaceAll,rfIgnoreCase])='') then
begin
edit1.Font.Color:=clgray;
edit1.Text:='Логин';
end;
end;

[Stilet]

Ну присвой ты это пояснение в свойство Text эдита. А потом при вооде оно заменится на то что вводится...

[Arigato]

Можно сделать, например так:
Устанавливаем на форме компонент TEdit, в свойство Text пишем нужную подсказку, цвет шрифта делаем clGray (тёмно-серый).
В обработчике события OnEnter для данного едита пишем:

  if Edit1.Font.Color = clGray then
  begin
    Edit1.Font.Color := clBlack;
    Edit1.Text := '';
  end; {if}

P.S. russian-stalker похожую идею выдал...