| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Balloon Hint не хочет показываться :( В чем может быть дело..

Layner ©   (2006-06-02 10:30:00) 


unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Button1: TButton;
   CheckBox1: TCheckBox;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

const
TTS_BALLOON = $40;
TTM_SETTITLE = (WM_USER + 32);

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(CheckBox1.Handle, @ti, 1, 'Tooltip text', 'Title');
end;

end.



Нажимаю на кнопку и никакой реакции...

---

REA   (2006-06-05 11:12:00) [1]

Примеры тут еще:
http://megalib.com/books/478/740.htm

Мне кажется TTM_ADDTOOL имеет смысл указать TTF_IDISHWND во флагах.
В стилях имеет смысл указать (возможно): WS_POPUP | TTS_NOPREFIX | TTS_BALLOON

---

Layner   (2006-06-05 10:07:00) [2]

Спасибо за ответы, качаю JEDI, а по вышеприведенному коду, просто хотелось понять, почему у меня не показывается хинт.. Если бы получилось, то более мощных компонентов может бы и не пришлось использовать. Работаю в D7 пробую в XP.

---

Eraser   (2006-06-03 23:17:00) [3]

> Layner ©   (02.06.06 10:30)

раз уж VCL используете, не прощи ли применить готовое решение, в Делфи 2006 есть стандартный компонент, или же если нету Д2006 можно использовать сторонний, я бы порекомендовал JEDI.
Ну уж если никак не хочется пользоватся сторонним компонентом, почему бы не посмотреть как этот сторонний компонент устроен? все вопросы исчезнут сами собой.

---

Sam Stone   (2006-06-03 20:14:00) [4]

А как повесить сабж над нужным контролом? Указание нужного хендла результата не дало. И как добавить крестик, по которому хинт будет исчезать? :) (як в трее всплывает)

---

unknown   (2006-06-02 13:40:00) [5]

> Layner ©   (02.06.06 10:30)

Все работает.
При наведении на чекбокс хинт вылезает.

---

Layner   (2006-06-02 10:31:00) [6]

Этот код был тут один раз (в дайджестах нашел), а так же в инете есть, например тут http://delphiworld.narod.ru/base/balloon_tooltips2.htmlно почему не работает, обидно, компилируется без проблем.. :( (D7)

---

Наверх