.FlatHint1ShowHint(var HintStr: String;var CanShow: Boolean; var HintInfo: THintInfo);这个过程该怎么使用？？？（看看也谢谢）

Question

没有人用过这个控件吗？
至少告诉我var  HintInfo:  THintInfo
THintInfo该怎么使用吧，DELPHI的帮助看的一头雾水

Answer 1

THintInfo是个结构体，他的子域描述了Help window的外观和行为。你的控件没用过，不过。此处就是要你向此类型的结构体填写各项数据。

Answer 2

HintStr用来控制显示的字符串
CanShow用来控制是否要显示
HintInfo用来进行全面的控制（上面两个参数也是HintInfo的成员）
//例子，在窗口上放一个RadioButton,一个Edit，一个Panel,还有一个FlatHint。
//试试改一下Edit，和RadioButton……
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatHintUnit, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    FlatHint1: TFlatHint;
    Edit1: TEdit;
    RadioButton1: TRadioButton;
    Panel1: TPanel;
    procedure FlatHint1ShowHint(var HintStr: String; var CanShow: Boolean;
      var HintInfo: THintInfo);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FlatHint1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
    HintStr:=Edit1.Text;//动态的显示Edit1的内容作为Hint
    CanShow:=RadioButton1.Checked;//控制是否要ShowHint
    if HintInfo.HintControl is TEdit then//你可以用HintInfo来判断现在ShowingHint的控件，然后执行相应的操作
      HintInfo.HintStr:='This a Edit！';
end;procedure TForm1.FormCreate(Sender: TObject);
begin
    Form1.ShowHint:=true;
    RadioButton1.Checked:=true;
end;end.