当把鼠标放在EDIT上然后出现一个黄色的小提示是怎么做的,怎么把中文写在提示里面

Question

当把鼠标放在EDIT上然后出现一个黄色的小提示是怎么做的
怎么把中文写在提示里面

Answer 1

控件有ShowHint属性,把它设置为True,还有Hint属性,在Hint属性中写你想要出现的文字

Answer 2

如果把Form.ShowHint设置为True,由于所有控件的ParentShowHint都默认为True,即可一次性把所有控件的ShowHint都设为True!Application.HintPause//显示时间,如为0就是立即出现
Application.HintColor//背景颜色
Application.HintHidePause//隐藏时间,如为1000,就是1秒(1000毫秒后隐藏)
...如果花点时间把相关VCL代码好好阅读下,还能修改字体,提示框形状等等...

Answer 3

delphi6里面提供了
THintWindow想要使用自己的提示框很简单，你可以继承Thintwindow然后自己修改
如
  TMyHintWindow =  class ( Thintwindow)
    constructor Create(AOwner: TComponent); override;  //这里面可以改变字体颜色
  private
    FActivating: Boolean;
  public 
    procedure ActivateHint(Rect: TRect; const AHint: string); override;   //算出它的位置在那里显示
  protected
    procedure Paint; override;  //这里可以重画，可以用图片什么都可以
  published
    property Caption;
 end;//Specifies the class for the window used to display help hints.
//替换window用来显示帮助提示的窗口类
  HintWindowClass := TGraphicHintWindow;
  Application.ShowHint := False;   
  Application.ShowHint := True;
//改变字体和颜色
constructor TGraphicHintWindow.Create(AOwner: TComponent);
begin
  inherited Create(AOwner); 
  Canvas.Font.Name := '宋体'; 
  Canvas.Font.Style := Style + [fsBold];
  Canvas.Color := clBlack; 
end; 
end;

Answer 4

你甚至可以重写ThintWindow类从 TCustomControl继承过来
截获
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
    procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;
    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
这3个消息，然后自己写代码画