а разве 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.
__________________
Пишу программы за еду.
__________________
|