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

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.