TTIWAdvMessageDialog doesn't work with "AsyncEnter" of an TTIWAdvEdit control
1.) Simple sourcecode:
type
TIWForm1 = class(TIWAppForm)
TIWAdvMessageDialog1: TTIWAdvMessageDialog;
IWRegion1: TIWRegion;
TIWAdvEdit1: TTIWAdvEdit;
TIWAdvEdit2: TTIWAdvEdit;
procedure IWAppFormCreate(Sender: TObject);
procedure TIWAdvEdit1AsyncEnter(Sender: TObject; EventParams: TStringList);
public
end;
implementation
{$R *.dfm}
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
TIWAdvMessageDialog1.Show;
end;
procedure TIWForm1.TIWAdvEdit1AsyncEnter(Sender: TObject; EventParams: TStringList);
begin
// out commented
end;
2.) Steps:
- Put 4 components on a new TIWAppForm.
- Set in object Inspector:
"ContentRegion == IWRegion1"
- In TIWForm1.OnCreate event write:
TIWAdvMessageDialog1.Show;
-> Until now all works fine.
3.) Problem:
If I click on "OnAsyncEnter" of TIWAdvEdit1 and insert an out commented text in this edit control,
this control will not longer work correct. If I focus it, the focus will vanish immediately.
4.) Versions:
TMS IntraWeb Component Pack Pro: 5.7
IntraWeb version: 14.0.45
Delphi: XE8
Browser: IE11
Kind regards
Hi,
Unfortunately the IWAdvMessageDialog is currently not compatible with the OnAsyncEnter events from components placed inside the dialog.
We'll have to investigate if support for the OnAsyncEnter event can be added in a future version of the component.
We'll have to investigate if support for the OnAsyncEnter event can be added in a future version of the component.