It looks like the code tries to create a tooltip window. I think Lazarus provides this functionality by itself in a cross-platform way, so you may want to look up that and replace the functionality there. An alternative would be to create the tooltip window yourself.
The code you show isn't just creating any window, but it creates a window of the class "Tooltips_Class32" specifically which AFAIK provides the tooltip functionality. So what you need to replace isn't the CreateWindow part (that would be easy), but the tooltip functionality part. On Sun, Feb 16, 2014 at 5:07 PM, FreeMan <[email protected]>wrote: > Hello, > I'm trying port components from delphi to lazarus, cross platform and QT > widgetset > CreateWindowEx On this winAPI I stoped and no info much for convert to > widgetset. Can anyone has anyidea? > What is aqual CreateWindowEx, DestroyWindow in linux QT widgetset? > My system is Kubuntu x64 and last svn fpc & lazarus > Thank you > > procedure CreateToolTip; > begin > fhToolTip := CreateWindowEx(0, 'Tooltips_Class32', nil, TTS_ALWAYSTIP or > TTS_BALLOON or TTS_NOPREFIX, > Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT), > Integer(CW_USEDEFAULT), Handle, 0, hInstance, nil); > > if fhToolTip <> 0 then > SetWindowPos(fhToolTip, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or > SWP_NOSIZE or SWP_NOACTIVATE); > end; > > procedure DestroyToolTip; > begin > DestroyWindow(FHToolTip); > end; > > -- > _______________________________________________ > Lazarus mailing list > [email protected] > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus >
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
