气泡提示代码
unitSherryHint;interfaceusesWindows,Messages,Classes,Controls,Forms,CommCtrl;typeTHintWin=class(THintWindow)privateFLastActive:THandle;publicprocedureActivateHint(Rect:TRect;ConstAHint:string);override;//end;implementationprocedureAddTipTool(hWnd:DWORD;IconType:Integer;Title,Text:
下载地址
用户评论
