Edit1.Hint := 'Enter your name';
Edit1.ShowHint := True;
Screen.HintFont.Color := clblue;//颜色
Screen.HintFont.Name:= '宋体';//字体
Screen.HintFont.Size:= 10;//字大小
application.ShowHint:=true;
选ME
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Hint := 'Enter your name';
Edit1.ShowHint := True;
Screen.HintFont.Color := clblue;//颜色
Screen.HintFont.Name:= '宋体';//字体
Screen.HintFont.Size:= 10;//字大小
application.ShowHint:=true;
end;