本例相关图片:
方法一:
- unit Unit1;
- interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ImgList;
- type TForm1 = class(TForm) BalloonHint1: TBalloonHint;
- Button1: TButton;
- Edit1: TEdit;
- ImageList1: TImageList;
- procedure FormCreate(Sender: TObject);
- end;
- var Form1: TForm1;
- implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
- begin
- Button1.CustomHint := BalloonHint1;
- Edit1.CustomHint := BalloonHint1;
- BalloonHint1.Images := ImageList1;
- Button1.ShowHint := True;
- Edit1.ShowHint := True;
- Button1.Hint := '提示:|这是 Button1 的 Hint|0';
- {标题|内容|ImageList 中的图像序号}
- Edit1.Hint := '敬告:|这是 Edit1 的 Hint|1';
- end;
- end.
方法二:
一共放置4个组件:BalloonHint1 ImageList1 Button1 Edit1
在ImageList1按钮上设置
BalloonHint1.Images := ImageList1;
在按钮button1和编辑框edit1上的属性中直接设置
1、customerhint为BalloonHint1;
2、showhint为True
3、hint := 提示:|这是 Button1 的 Hint|0
或者
Hint := '敬告:|这是 Edit1 的 Hint|1';