zoukankan
html css js c++ java
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
查看全文
相关阅读:
spark调度器FIFO,FAIR
elasticsearch5.6.8 创建TransportClient工具类
elasticsearch TransportClient bulk批量提交数据
java 参数来带回方法运算结果
idea上传代码到git本地仓库
2020-03-01 助教一周小结(第三周)
2020-02-23 助教一周小结(第二周)
2020-02-16 助教一周小结(第一周)
寻找两个有序数组的中位数
无重复字符的最长子串
原文地址:https://www.cnblogs.com/luckForever/p/7254671.html
最新文章
EasyExcel随笔
SSM框架集成各配置文件
java 异常
数据库 分库分表
用到的指令
java 多线程 day17 Exchanger
java 多线程 day16 CountDownLatch 倒计时计数器
java 多线程 day15 CyclicBarrier 路障
java 多线程 day14 Semaphore 线程信号灯
java 多线程 day13 condition 线程通信
热门文章
java 多线程 day12 读写锁
java 多线程 day11 lock
logging模块1
configparser模块
两台linux ssh免密登录
json模块
shutil模块
sys 模块
spark
spark--shuffle原理
Copyright © 2011-2022 走看看