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
查看全文
相关阅读:
0909初识操作系统
实验四主存空间的分配和回收
实验一 DOS命令解释程序的编写
0909关于操作系统
实验四主存空间的分配和回收
实验3评价
实验一 DOS命令解释程序的编写
实验三、进程调度模拟程序实验
实验二、作业调度实验
0909 第一次上机课之《为什么学操作系统?》
原文地址:https://www.cnblogs.com/luckForever/p/7254671.html
最新文章
实验3 201306104118 余佳梓
DOS命令解释程序的编写
0909 18余佳梓
实验四 主存空间的分配和回收模拟
同学实验三观后评论
实验三 进程调度模拟程序
实验二 作业调度模拟程序
操作系统发展史PPT
0909 初学操作系统心得,感觉棒棒哒。
实验四 主存空间的分配和回收模拟
热门文章
实验二 作业调度模拟实验
实验三同学互评
实验三
实验一
0909初识操作系统
实验四 主存空间的分配和回收模拟
实验三观后感
实验三 进程调度模拟程序
实验二 实验报告
实验一 DOS命令解释程序的编写
Copyright © 2011-2022 走看看