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
查看全文
相关阅读:
【SPOJ 104】Highways
Test_Codes
【关路灯】【MM不哭】
省选悲剧
【HNOI 2002】营业额统计
博弈论 Nimm Games
【NOI 2008】志愿者招募 Employee
【APIO2009】ATM
【SDOI 2009】学校食堂 Dining
POJ 1001
原文地址:https://www.cnblogs.com/luckForever/p/7254671.html
最新文章
自学MVC(二):小小的数据绑定
自学MVC(六):无聊造轮子,Jquery实现AutoComplete2009年05月10日
自学MVC(一):在荒野里探索
自学MVC(七):MVC里参数传递问题2009年05月14日
自学MVC(五):Jquery里的Ajax的实现2009年05月06日
VMware中模拟u盘启动
Photoshop CS5 更新插件 Camera Raw 6.3
错误 312 (net::ERR_UNSAFE_PORT):未知错误。
falsh getTimer()
u盘安装centos x86_64
热门文章
windows代理软件调试socket代理详细日志
关于socket关闭
【Hadoop大数据分析与挖掘实战】(一)P19~22
Android之PopupWindow弹出对话框
Android之用PopupWindow实现弹出菜单
android图片的放大缩小源码
汉字与unicode码相互转化
初识NHibernate 3
眼睛保护色
DataGridView控件右键选中行
Copyright © 2011-2022 走看看