From 0661c172d134b211bad33f398efc8622a9eb315a Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sun, 23 Jun 2013 14:21:55 +0000
Subject: [PATCH] Qt: fixed crash in TQtWidgetSet.MessageBox if passed HWND is
 0.

git-svn-id: trunk@41827 -
---
 lcl/interfaces/qt/qtwinapi.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 088106f076..11311d8bd4 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -4920,7 +4920,10 @@ begin
   Str := GetUtf8String('TQtWidgetSet.MessageBox - not implemented');
   TitleStr := GetUtf8String(lpCaption);
   OkStr := GetUtf8String('Ok');
-  Result := QMessageBox_information(TQtWidget(hWnd).Widget, @Str, @TitleStr, @OkStr);
+  if HWND <> 0 then
+    Result := QMessageBox_information(TQtWidget(hWnd).Widget, @Str, @TitleStr, @OkStr)
+  else
+    Result := QMessageBox_information(nil, @Str, @TitleStr, @OkStr);
 end;
 
 {------------------------------------------------------------------------------