气泡消息提示

使用 TBalloonHint 控件，可以实现灵活控制对VCL 控件上进行消息提示

var

Pos: TPoint;

BalloonHint :TBalloonHint;

begin

BalloonHint := TBalloonHint.create(application);

BalloonHint.ImageIndex :=0; //要先设置 BalloonHint.images属性后才能生效

BalloonHint.Title := '提示';

BalloonHint.Description := '测试消息提示框';

Pos := Control.ClientToScreen(Point(Control.Width div 2, Control.Height div 2)); // Control为VCL control

BalloonHint.ShowHint(Pos);

end;