paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed crash in TQtWidgetSet.SendMessage() if TQtWidget Qt handle (QWidgetH) is nil.

Browse Source 
git-svn-id: trunk@30692 -
This commit is contained in:
zeljko 2011-05-12 11:16:42 +00:00
parent 4ec34d9f52
commit 03789821bf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwinapi.inc
View File

@ -4797,7 +4797,7 @@ var
Event: QLCLMessageEventH; Event: QLCLMessageEventH;
begin begin
Result := 0; Result := 0;
if HandleWnd <> 0 then if (HandleWnd <> 0) and (Widget.Widget <> nil) then
begin begin
Event := QLCLMessageEvent_create(QEventLCLMessage, Msg, wParam, lParam, 0); Event := QLCLMessageEvent_create(QEventLCLMessage, Msg, wParam, lParam, 0);
try try