使用 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;