EnableExplicit Procedure.l GadgetToolTipEx(hWnd.i, hGadget.l, Text.s) Protected Info.TOOLINFO Protected hTip.l hTip = CreateWindowEx_(#WS_EX_TOPMOST,@"ToolTips_Class32",@"",#WS_POPUP|#TTS_ALWAYSTIP|#TTS_NOPREFIX,#CW_USEDEFAULT,#CW_USEDEFAULT,#CW_USEDEFAULT,#CW_USEDEFAULT,hWnd,0,GetModuleHandle_(0),0) Info\cbSize = SizeOf(TOOLINFO) Info\uFlags = #TTF_SUBCLASS|#TTF_IDISHWND Info\hWnd = hGadget Info\uID = hGadget Info\hInst = GetModuleHandle_(0) Info\lpszText = @Text SendMessage_(hTip,#TTM_ADDTOOL,0,@Info) SendMessage_(hTip,#TTM_SETMAXTIPWIDTH,0,1024) SendMessage_(hTip,#TTM_SETDELAYTIME,#TTDT_AUTOMATIC,1000) ProcedureReturn #True EndProcedure If OpenWindow(0, 0, 0, 500, 250, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ButtonGadget(1, 10, 10, 100, 20, "Test-Button", 0) GadgetToolTipEx(WindowID(0), GadgetID(1), "ToolTip mit" + Chr(13) + "Zeilenumbruch") Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf ; IDE Options = PureBasic 5.11 (Windows - x86) ; CursorPosition = 26 ; Folding = - ; EnableXP ; EnableUser