[Lazarus] Need help about CreateWindowEx

zeljko zeljko at holobit.net
Sun Feb 16 17:26:14 CET 2014


On 02/16/2014 05:07 PM, FreeMan 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;

You cannot use that with cross apps, it's windows specific .. 
https://qt-project.org/doc/qt-4.8/qtooltip.html or THintWindow in lazarus.
MyHint := THintWindow.Create() ...etc.

zeljko






More information about the Lazarus mailing list