mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 18:58:17 +02:00
Qt: fixed crash in TQtWidgetSet.SendMessage() if TQtWidget Qt handle (QWidgetH) is nil.
git-svn-id: trunk@30692 -
This commit is contained in:
parent
4ec34d9f52
commit
03789821bf
@ -4797,7 +4797,7 @@ var
|
||||
Event: QLCLMessageEventH;
|
||||
begin
|
||||
Result := 0;
|
||||
if HandleWnd <> 0 then
|
||||
if (HandleWnd <> 0) and (Widget.Widget <> nil) then
|
||||
begin
|
||||
Event := QLCLMessageEvent_create(QEventLCLMessage, Msg, wParam, lParam, 0);
|
||||
try
|
||||
|
Loading…
Reference in New Issue
Block a user