Delphi 2009 之 TBalloonHint

摘要:
本例相关图片:代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ImgList;typeTForm1=class(TForm)BalloonHint1:TBalloonHint;Button1:TButton;Edit1:TE
本例相关图片:
Delphi 2009 之 TBalloonHint第1张
Delphi 2009 之 TBalloonHint第2张
Delphi 2009 之 TBalloonHint第3张Delphi 2009 之 TBalloonHint第4张

代码文件:
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 = {
      494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000861A50094A6B5000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000009CAECE002979
      E7000061EF000059EF000049EF000049EF000059EF000059EF0094AED6000000
      00000000000000000000000000000861A5000000000000000000000000000000
      000000000000000000000000000000000000C66D1800BD550800BD5508000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000005AA6DE00219EFF0031A6
      FF004AB6FF0042AEFF0042AEFF004AB6FF0073D7FF0073D7FF000061EF000000
      0000000000000861A50094AEB500000000000000000000000000000000000000
      0000000000000000000000000000BD550800FFA23900EF8A2900FFCF9C00D66D
      1800000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000086E70073CFFF0073CF
      FF006BC7FF0063C7FF0052B6FF00298EF7000061EF000061EF000069EF009CB6
      D60000000000000000000861A500000000000000000000000000000000000000
      00000000000000000000BD5D1000FFAE5A00FFB25A00EF7D1800FFDBBD00D66D
      18000000000000000000EF9A4200000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000086E7007BD7FF007BD7
      FF007BD7FF0073D7FF0073D7FF007BD7FF008CDFFF008CDFFF009CE7FF000079
      EF00000000000000000000000000000000000000000000000000000000000000
      000000000000C6611000FFBA6B00FFBA7300FFBA7300F77D0800FFDBBD00D66D
      180000000000EF9A420000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000008EE7008CDFFF008CDF
      FF008CDFFF008CDFFF0073C7FF00399EF7000071EF000071EF000079EF000079
      E700000000000000000000000000000000000000000000000000BD5D1000BD5D
      1000BD5D1000FFC37B00FFC78400FFCB8C00FFCB8C00FF7D0000FFE3CE00DE75
      2100000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000008EE70094E7FF0094E7
      FF009CE7FF009CE7FF009CE7FF009CE7FF00A5EFFF00A5EFFF00ADF7FF000086
      EF000000000000000000000000000000000000000000C6611000E78A4A00FFAE
      7B00FF963100FFCF9400FFD39C00FFDBB500FFDBBD00FF8A1000FFF3E700DE75
      2100000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000086E7009CEFFF009CEF
      FF00A5EFFF00A5EFFF008CD7FF0039A6F700008EE700008EE700008EEF00008E
      E700008EE7000096E7000096E7009CC7DE0000000000D66D1800FFD3B500FFDF
      CE00FFA65200FFDBB500FFEFDE00FFF7EF00FFF7EF00FF922100FFFBF700DE79
      210000000000EF9A4200EF9A4200000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000003996E70073CFFF008CE7
      FF00A5F7FF00ADF7FF00ADF7FF00ADF7FF00ADF7FF00ADF7FF00ADF7FF00ADF7
      FF00ADF7FF00ADF7FF00ADF7FF000096E70000000000D66D1800FFFFFF00FFFF
      FF00FFB67300FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF9E3100FFFFFF00DE79
      210000000000EF9A4200EF9A4200000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000CED7DE003196EF002986
      DE0063C7FF00ADF7FF0063C7FF00109EEF000096E7000096E7000096E7000096
      E7000096E7000096E7000096E7009CCFE70000000000E7752100EFAE8400FFFF
      FF00FFDBBD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFA64200FFFFFF00E77D
      2100000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000B5C7
      DE00108EE700ADF7FF006BCFFF0052AEE7000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000E77D2100E77D
      2100EF862900FFEFDE00FFFFFF00FFFFFF00FFFFFF00FFB24A00FFFFFF00E77D
      2100000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000052AEE70042B6F7009CE7FF00189EE7000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000E77D2100FFF7EF00FFFFFF00FFFFFF00FFBA5A00FFFFFF00E782
      290000000000EF9A420000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000C6DFE700008EE700ADF7FF000096E7000000000000000000000000000000
      00000861A5000000000000000000000000000000000000000000000000000000
      00000000000000000000E77D2100FFF3E700FFFBF700FFBE6300FFFFFF00EF86
      29000000000000000000EF9A4200000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000096E700ADF7FF000096E7000000000000000000000000000861
      A500ADBED600000000000861A500000000000000000000000000000000000000
      0000000000000000000000000000E77D2100FFF7EF00FFC76B00FFFFFF00EF86
      2900000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000009CCFEF000096E7009CCFEF000000000000000000000000000000
      0000000000000861A500ADC7D600000000000000000000000000000000000000
      000000000000000000000000000000000000E78E3900E77D2100E77D21000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFCFFFF00000000C01EFF1F00000000
      8019FE0F00000000800DFC0D00000000800FF80B00000000800FC00F00000000
      800F800F00000000800080090000000080008009000000008000800F00000000
      E0FFC00F00000000F0FFF80B00000000F0F7FC0D00000000F8E5FE0F00000000
      F8F9FF1F00000000FFFFFFFF00000000}
  end
end

免责声明:文章转载自《Delphi 2009 之 TBalloonHint》仅用于学习参考。如对内容有疑问,请及时联系本站处理。

上篇过滤器 ||(filter)20199305 2019-2020-2 《网络攻防实践》第七周作业下篇

宿迁高防,2C2G15M,22元/月;香港BGP,2C5G5M,25元/月 雨云优惠码:MjYwNzM=

相关文章

Delphi的字符(Char),字符串(String),字符串指针(PChar),字符数组arrayofchar(来自http://delphi.cjcsoft.net/论坛)

Delphi有三种类型的字符: AnsiChar这是标准的1字节的ANSI字符,程序员都对它比较熟悉。 WideChar这是2字节的Unicode字符。 Char在目前相当于AnsiChar,但在Delphi 2010 以后版本中相当于WideChar. 记住因为一个字符在长度上并不表示一个字节,所以不能在应用程序中对字符长度进行硬编码, 而应该使用Siz...

Delphi中的ObjectList简单用法一则

最近项目中需要搞很多个同一类对象的管理和操作,我居然还想用数组array来实现。在当当的教育下,开始研究TObjectList。Delphi中将一系列对象进行数组形式的维护,TObjectList是一个不错的实现方法。他帮助我们添加、计数、删除、释放一个List列表中的内容。基本实现不难,自己做一个类,把对象数组像List一样封装到Items中去,然后根据...

DBGridEh选择时高亮度显示问题 Delphi

这是我自画dbgrideh的函数,其中有些地方是根据我的实际需要设的,你可以改改看procedureTfrmCopyBook_MeterCopy.SetGridColor(varAdoTable:TDataSet;varDbGrid1:TDBGrideh;constRect:TRect;DataCol:Integer;Column:TColumneh;S...

一名Delphi程序员的开发习惯

一名Delphi程序员的开发习惯 有关开发习惯的一些想法,如鲠在喉,不吐不快。究其发贴动机,当然不排除有骗取参与分的可能,但另一方面,也希望能给同行(念Xing)者提供一些建议,或者参考(希望不是误人子弟)。同时,也希望各位能够就我的这些陋习,发表一点看法,给出批评和指正的意见。谢谢。一.建立工程目录首先,第一步要做的,当然是给新项目建一个单独的目录(别笑)...

delphi

procedureTForm1.btnFindClick(Sender: TObject); varhr, hr1, hr_id, hr_pwd: THandle; WindowText: array[0..MAX_PATH] ofChar; beginhr := FindWindow('#32770', 'TeamViewer'); hr :=...

Delphi中Indy 10的安装和老版本的卸载

安装中遇到的问题: 1,用新的indy替换掉了老版本source下面的indy 2,按照参考资料编译的.dpk版本要保持跟老版本一致,如本人的就是XXX100.dpk 3,编译和安装路径统一放在了delphi安装目录的bin下面 4,在tool的library path中要加入    XXXDelphi 7SourceCore XXX Delphi 7So...