Tooltip eines beliebigen Controls anzeigen lassen

[bitsetter]

Hi,
hier ist ein getestetes Beispiel, wie man TTM_GETTEXT verwendet. Irgedwo stand, dass man lieber mit TTM_GETTOOLINFO arbeiten soll. Bei fremden Fenstern wird es unter XP jedoch nicht funktionieren, eventuell mußt du es mal mit VirtualAlloc versuchen.

Delphi-Quellcode:

var  
  ToolTipp: TToolInfo;
  ControlHandle, ToolTipHandle: HWND;
begin
  ControlHandle:= //Handle des Fensters wo der Tip angezeigt wird
  ToolTipHandle:= //Handle des Tooltips
  ZeroMemory(@ToolTipp, SizeOf(ToolTipp));
  ToolTipp.cbSize:= SizeOf(ToolTipp);
  ToolTipp.hwnd:= ControlHandle;
  ToolTipp.uId:= ToolTipp.hwnd;
  SetLength(Text, 200);
  ToolTipp.lpszText:= PChar(Text);
  SendMessage(ToolTipHandle, TTM_GETTEXT(*TTM_GETTOOLINFO*), 0, LPARAM(@ToolTipp));
  Caption:= string(ToolTipp.lpszText);