Delphi 为Edit或是Memo添加一个气球提示

最新推荐文章于 2017-10-25 10:39:01 发布

weixin_30492047

最新推荐文章于 2017-10-25 10:39:01 发布

阅读量149

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/flay/archive/2012/05/25/2518090.html

本文介绍如何利用EDITBALLOONTIP结构在按钮控件上显示气球提示，包括设置标题、文本内容及图标类型，并提供了一个Delphi实现示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

The EDITBALLOONTIP structure contains information about a balloon tip associated with a button control.

Syntax

typedef struct tagEDITBALLOONTIP {
    DWORD cbStruct;
    LPCWSTR pszTitle;
    LPCWSTR pszText;
    INT ttiIcon;
} EDITBALLOONTIP, *PEDITBALLOONTIP;

Members

cbStruct
DWORDthat contains the size, in bytes, of the structure.
pszTitle
Pointer to a Unicode string that contains the title of the balloon tip.
pszText
Pointer to a Unicode string that contains the balloon tip text.
ttiIcon
Value of type INTthat specifies the type of icon to associate with the balloon tip. This member can be one of the following values.
TTI_ERROR
Use the error icon.
TTI_INFO
Use the information icon.
TTI_NONE
Use no icon.
TTI_WARNING
Use the warning icon.
TTI_INFO_LARGE
Use the large information icon. This is assumed to be an HICON value.
TTI_WARNING_LARGE
Use the large warning icon. This is assumed to be an HICON value.
TTI_ERROR_LARGE
Use the large error icon. This is assumed to be an HICON value.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;

  const
   ECM_FIRST          =$1500;
   EM_SHOWBALLOONTIP  =ECM_FIRST + 3;
   EM_HIDEBALLOONTIP  =ECM_FIRST + 4;


  type
    _tagEDITBALLOONTIP = packed record
      cbStruct:DWORD;
      pszTitle,
      pszText:PWideChar;
      ttiIcon:Integer;
  end;
  TEditBalloonTip = _tagEDITBALLOONTIP ;

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ebt:TEditBalloonTip;
begin
  with ebt do
  begin
    cbStruct :=SizeOf(ebt);
    pszTitle :='提示';
    pszText  :='请输入内容';
    ttiIcon  :=1;
  end;
   SendMessage(Memo1.Handle,EM_SHOWBALLOONTIP, 0, LongInt(@ebt));

end;

end.