[sergey3695]

вместо скрытия подсказок »

лучше скрыть иначе тогда еще геморойнее.
Вообщем досех пор думаю над твоим вопросом, вот функция скрытия системных хинтов на делфи

читать дальше »

Код:

unit Unit1;

interface

uses
  Windows,Messages,SysUtils,Forms;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    SysTooltip: HWND;
    procedure WMNCMouseMove(var Msg: TMessage); message WM_NCMOUSEMOVE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function HideSystemTooltip(Wnd: HWND; lPrm: LPARAM): BOOL; stdcall;
var
  WndCl: PChar;
begin
  Result := True;
  if not IsWindowVisible(Wnd) then Exit;
  GetMem(WndCl, 256 * SizeOf(Char));
  try
    GetClassName(Wnd, WndCl, 255);
    Result := (StrPas(WndCl) <> '#32774');
    if not Result then
      ShowWindow(Wnd, SW_HIDE);
  finally
    FreeMem(WndCl, 256 * SizeOf(Char));
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SysTooltip := 0;
  EnumWindows(@HideSystemTooltip, 0);
end;

procedure TForm1.WMNCMouseMove(var Msg: TMessage);
begin
  if not IsWindow(SysTooltip) then
    EnumWindows(@HideSystemTooltip, 0);
  if not IsWindowVisible(SysTooltip) then Exit;
end;

end.

Опыта в делфи у меня мало (в написании библиотек), можно сказать что ноль, полный ноль. Начил изучать пока с основ. Но вопрос хотелось бы уже решить. Может кто-нибудь по-умнее может написать библеотеку для инно. Johny777, , без библы тут необойтись все-равно. (по крайней мере я так думаю)