TEdit 控件的提示，就像 IE7 的地址输入栏一样

 

uses CommCtrl, Themes;

//需 Delphi2010 版本
procedure TForm1.FormCreate(Sender: TObject);
begin
  if CheckWin32Version(5, 1)
    and ThemeServices.ThemesEnabled and HandleAllocated then
    SendTextMessage(Edit1.Handle, EM_SETCUEBANNER, WPARAM(0), '请输入需要的值');
end;

效果图：