Скачать: CL | DM;

TOOLTIP   Найти похожие ветки 

← →
WASM   (2007-07-13 18:42) [0]

Доброго времени суток, подскажите как сделать многострочный Tooltip, конструкция типа #13#10 не помогает

var
 TTI: TToolInfo;
 TTHWND: THandle;

procedure TForm1.ShowTooltip(Text: string; XPos: integer; YPos: integer);
begin
 if TTHWND <> 0 then
   DestroyWindow(TTHWND);
 TTHWND:= CreateWindow(TOOLTIPS_CLASS, "", $30,
   Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
   Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), 0, 0, HInstance, nil);
 TTI.cbSize:= SizeOf(TTI);
 TTI.uFlags:= TTF_TRACK + TTF_TRANSPARENT;
 TTI.Rect.Left:= 0;
 TTI.Rect.Top:= 0;
 TTI.Rect.Bottom:= 0;
 TTI.Rect.Right:= 0;
 SetWindowPos(TTHWND, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE);
 TTI.lpszText:= PChar(Text);
 SendMessage(TTHWND, WM_SETFONT, Font.Handle, 0);
 SendMessage(TTHWND, TTM_ADDTOOL, 0, Integer(@TTI));
 if YPos + 18 > Screen.Height then
   YPos:= Screen.Height - 18;
 SendMessage(TTHWND, TTM_TRACKPOSITION, 0, MAKELPARAM(XPos, YPos));
 SendMessage(TTHWND, TTM_TRACKACTIVATE, Integer(LongBool(True)), Integer(@TTI));
end;

---

← →
Tack ©   (2007-07-19 00:36) [1]

Системный тултип всегда однострочный.

Или рисуй свой, или загрузи Jedi VCL, там вроде есть уже готовый рисованный тултип (вроде бы даже многострочный).

---

← →
WASM   (2007-07-19 10:10) [2]

> Tack ©   (19.07.07 00:36) [1]

Спасибо я разобрался

SendMessage(TTHWND, TTM_SETMAXTIPWIDTH, 0, Screen.Width);

теперь #13#10 работает

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c