Watch, Follow, &
Connect with Us
Public Report
Report From: EDN/Discussion Forums    [ Add a report in this area ]  
Report #:  135899   Status: Reported
TEdit quits accepting keyboard input after MessageDlg from OnExit
Project:  EDN Build #:  23.0.20618.2753
Version:    2 Submitted By:   Raymond Jenkins
Report Type:  Basic functionality failure Date Reported:  2/23/2016 3:38:48 PM
Severity:    Critical / Show Stopper Last Updated: 2/23/2016 3:40:49 PM
Platform:    64 Bit Internal Tracking #:  
Resolution: None  Resolved in Build: : None
Duplicate of:  None
Voting and Rating
Overall Rating: (3 Total Ratings)
5.00 out of 5
Total Votes: 31
We have simplified this down to a basic fmx.TForm an TEdit and a TButton. In the OnExit of the TEdit put following code:

  FMX.Dialogs.MessageDlg('This is the test', TMsgDlgType.mtWarning, [TMsgDlgBtn.mbOK], 0);

Launch the application, type something into the TEdit, and then tab to the button. Click back into the TEdit and notice that the TEdit is no longer accepting keyboard input.

The blue focus box around the TEdit doesn't go away, as we expect it to do if there is no OnExit event.

We are using Delphi X Seattle update 1 on Windows 10 or 7.
Steps to Reproduce:
UnZip Attached project.
type into Edit1
press tab to exit Edit1
click ok on the messageDlg that shows
click back into Edit1
try to type into the Editbox and see that it is futile.


Server Response from: ETNACODE01