[Lazarus] Need help about CreateWindowEx
FreeMan
freeman35 at delphiturkiye.com
Sun Feb 16 17:07:53 CET 2014
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;
More information about the Lazarus
mailing list