创建漫画式飞跃提示？yczyk、lgqTiger、senhor、ghyghost、menggirl

Question

http://www.bjn2ms.net/wjiachun/printpage.asp?ArticleID=25
此网址上介绍了漫画式飞跃提示，有很多问题：
1、ti: TToolInfo;这句话要报错
2、const 
  TTS_BALLOON  = $40; 
  TTM_SETTITLE = (WM_USER + 32);
var
  hTooltip: Cardinal; 
  ti: TToolInfo;
  buffer : array[0..255] of char;
这段话不知写在哪里
3、编译一排又一排的错
请各位高手指点，给出源码，谢谢

Answer 1

interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,commctrl{加这个单元，才可以应用TToolInfo};
const
  TTS_BALLOON  = $40;
  TTM_SETTITLE = (WM_USER + 32);type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  hTooltip: Cardinal;
  ti: TToolInfo;
  buffer : array[0..255] of char;
implementation{$R *.dfm}procedure CreateToolTips(hWnd: Cardinal);
begin 
  hToolTip := CreateWindowEx(0, 'Tooltips_Class32', nil, 
                TTS_ALWAYSTIP or TTS_BALLOON,
                Integer(CW_USEDEFAULT),
                Integer(CW_USEDEFAULT), 
                Integer(CW_USEDEFAULT), 
                Integer(CW_USEDEFAULT), 
                hWnd, 0, hInstance, nil); 
  if hToolTip <> 0 then
  begin 
    SetWindowPos(hToolTip, HWND_TOPMOST, 0, 0, 0, 0, 
           SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); 
    ti.cbSize := SizeOf(TToolInfo); 
    ti.uFlags := TTF_SUBCLASS;
    ti.hInst  := hInstance; 
  end; 
end;procedure AddToolTip(hwnd: DWORD; lpti: PToolInfo; IconType: Integer;Text, Title: PChar);
var 
  Item: THandle; 
  Rect: TRect; 
begin 
  Item := hWnd;
  if (Item <> 0) and (GetClientRect(Item, Rect)) then 
  begin 
    lpti.hwnd := Item; 
    lpti.Rect := Rect;
    lpti.lpszText := Text;
    SendMessage(hToolTip, TTM_ADDTOOL, 0, Integer(lpti));
    FillChar(buffer, SizeOf(buffer), #0); 
    lstrcpy(buffer, Title); 
    if (IconType > 3) or (IconType < 0) then IconType := 0; 
    SendMessage(hToolTip, TTM_SETTITLE, IconType, Integer(@buffer));
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateToolTips(Form1.Handle);
  AddToolTip(Memo1.Handle, @ti, 0, '测试飞跃提示', '无图标提示');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  CreateToolTips(Form1.Handle);
  AddToolTip(Memo1.Handle, @ti, 1, '测试飞跃提示', '信息图标');
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  CreateToolTips(Form1.Handle);
  AddToolTip(Memo1.Handle, @ti, 2, '测试飞跃提示', '警告图标');
end;procedure TForm1.Button4Click(Sender: TObject);
begin
  CreateToolTips(Form1.Handle);
  AddToolTip(Memo1.Handle, @ti, 3, '测试飞跃提示', '错误图标');
end;end.