-
TBalloonHint 提示
代码文件:
unit Unit1;
interface
uses
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.
窗体文件:
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 127
ClientWidth = 215
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left =
32
Top =
32
Width =
75
Height =
25
Caption =
'Button1'
TabOrder =
0
end
object Edit1: TEdit
Left =
32
Top =
80
Width =
121
Height =
21
TabOrder =
1
Text =
'Edit1'
end
object BalloonHint1: TBalloonHint
Left =
161
Top =
24
end
object ImageList1: TImageList
Left =
161
Top =
72
Bitmap =
{
}
end
end
-
相关阅读:
Rolling File Appender使用示例
log4net生成dll文件
看涨期权(call options)
log4net file Appender使用示例
log4net不能记录日志,IsErrorEnabled值为false
C#委托
打印事件处理顺序
Zigbee、WiFi和433MHz无线技术
log4net Tutorial
安装服务出现异常
-
原文地址:https://www.cnblogs.com/luckForever/p/7254671.html
Copyright © 2020-2023
润新知