Показать сообщение отдельно
  #4  
Старый 23.05.2011, 18:29
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

а разве Microsoft Agent и Tooltip Controls как-то связаны?
а так да, по умолчанию персонажи Microsoft Agent в Windows 7 не работают, но если очень хочется, то можно скачать Hotfix.
Программы, использующие технологии Microsoft Agent, могут не работать в Windows 7

что касается Tooltip Controls, то прекрасно работает на 7:

Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    hwndTip: HWND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  TTI_NONE = 0;
  TTI_INFO = 1;
  TTI_WARNING = 2;
  TTI_ERROR = 3;

  TTS_ALWAYSTIP = $01;
  TTS_NOPREFIX = $02;
  TTS_NOANIMATE = $10;
  TTS_NOFADE = $20;
  TTS_BALLOON = $40;
  TTS_CLOSE = $80;

  TTM_SETTITLE = WM_USER+32;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  ti: TOOLINFO;
begin
  hwndTip:=CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASS, nil,
    WS_POPUP or TTS_ALWAYSTIP or TTS_BALLOON,
    0, 0, 0, 0,
    Handle,
    0, HInstance, nil);
  SendMessage(hwndTip, TTM_SETTITLE, 1, LPARAM(PChar(Caption)));
  SendMessage(hwndTip, TTM_SETTIPBKCOLOR, clCream, 0);
  SendMessage(hwndTip, TTM_SETTIPTEXTCOLOR, clBlack, 0);

  ti.cbSize:=SizeOf(TOOLINFO);
  ti.uFlags:=TTF_SUBCLASS or TTF_CENTERTIP;
  ti.hwnd:=Edit1.Handle;
  ti.hInst:=0;
  ti.lpszText:='Edit1';
  Windows.GetClientRect(ti.hwnd, ti.Rect);
  SendMessage(hwndTip, TTM_ADDTOOL, 0, LPARAM(@ti));

  ti.cbSize:=SizeOf(TOOLINFO);
  ti.uFlags:=TTF_SUBCLASS or TTF_CENTERTIP;
  ti.hwnd:=Button1.Handle;
  ti.hInst:=0;
  ti.lpszText:='Button1';
  Windows.GetClientRect(ti.hwnd, ti.Rect);
  SendMessage(hwndTip, TTM_ADDTOOL, 0, LPARAM(@ti));

  ti.cbSize:=SizeOf(TOOLINFO);
  ti.uFlags:=TTF_SUBCLASS or TTF_CENTERTIP;
  ti.hwnd:=Memo1.Handle;
  ti.hInst:=0;
  ti.lpszText:='Memo1';
  Windows.GetClientRect(ti.hwnd, ti.Rect);
  SendMessage(hwndTip, TTM_ADDTOOL, 0, LPARAM(@ti));
end;

end.
Вложения
Тип файла: rar CreateToolTip.rar (152.7 Кбайт, 69 просмотров)
__________________
Пишу программы за еду.
__________________
Ответить с цитированием