diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-05-28 08:23:37 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-05-28 08:23:37 +0000 |
| commit | 17bf77432df0062f1cfaa41cb95f51d9c01c16d8 (patch) | |
| tree | 9b77fb356ddb2292814cb647891e7ae5133714b2 /src/gui | |
| parent | 30e2ff997667fa49a60e2fe717f4b2aba6292101 (diff) | |
| download | fpGUI-17bf77432df0062f1cfaa41cb95f51d9c01c16d8.tar.xz | |
* Fixed the bug when getting unhandled exceptions inside a Modal dialog, keyboard and mouse responces are blocked.
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/gui_form.pas | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas index d4a1ec18..088a5b40 100644 --- a/src/gui/gui_form.pas +++ b/src/gui/gui_form.pas @@ -255,7 +255,12 @@ begin fpgWaitWindowMessage; until (ModalResult <> 0) or (not Visible); except - fpgApplication.HandleException(self); + on E: Exception do + begin + ModalResult := -1; + Visible := False; + fpgApplication.HandleException(self); + end; end; fpgApplication.PopModalForm; |