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 работает

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