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;
效果图: