[Lazarus] Need help about CreateWindowEx

[Kostas Michalopoulos]

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 <freeman35 at delphiturkiye.com>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
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20140216/b264f302/attachment-0003.html>