diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/gui/inputquerydialog.inc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/gui/inputquerydialog.inc b/src/gui/inputquerydialog.inc index e7769246..094a58e2 100644 --- a/src/gui/inputquerydialog.inc +++ b/src/gui/inputquerydialog.inc @@ -48,8 +48,10 @@ begin try dlg.WindowTitle := ACaption; dlg.lblText.Text := APrompt; + dlg.edtText.Text := Value; Result := dlg.ShowModal = mrOK; - Value := dlg.edtText.Text; + if Result then + Value := dlg.edtText.Text; finally dlg.Free; end; |