paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-21 21:42:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt5: proper check for handle

Browse Source
This commit is contained in:
Željan Rikalo 2022-04-29 16:33:28 +02:00
parent 9563473047
commit dc204837e6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lclextensions/include/qt5/delphicompat.inc
View File

@ -203,7 +203,7 @@ begin
FID := nIDEvent;
FControl := FindControl(hWnd);
FHandle := hWnd;
if hWnd <> 0 then
if QtWidgetSet.IsValidHandle(hWnd) then
begin
FWidgetHook := QObject_hook_create(TQtWidget(hWnd).TheObject);
QObject_hook_hook_destroyed(FWidgetHook, @signalWidgetDestroyed);