07-26-2019, 05:18 PM
I have been able to reproduce this on a single form.
It has nothing to do with embedded frames.
1. iWmenu on page with menu - the click event gets through...
2. iwFrame with iWtreeNode and items on tree- the click event does not get through...
>>
unit Unit1;
interface
uses
Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Menus,
Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
IWTMSMenus, IWCompTreeview, Vcl.Forms, IWVCLBaseContainer, IWContainer,
IWHTMLContainer, IWHTML40Container, IWRegion;
type
TIWForm1 = class(TIWAppForm)
iwMnuMain: TTIWMainMenu;
mnuMain: TMainMenu;
mnuFile1: TMenuItem;
mnuMsgBox1: TMenuItem;
rgn1: TIWRegion;
tvwTest: TIWTreeView;
procedure mnuMsgBox1Click(Sender: TObject);
procedure tvwTestTreeItemClick(Sender: TObject;
ATreeViewItem: TIWTreeViewItem);
public
end;
implementation
{$R *.dfm}
procedure TIWForm1.mnuMsgBox1Click(Sender: TObject);
begin
WebApplication.ShowMessage('menu hello!'); //this happens
end;
procedure TIWForm1.tvwTestTreeItemClick(Sender: TObject;
ATreeViewItem: TIWTreeViewItem);
begin
WebApplication.ShowMessage(ATreeViewItem.Caption); //this never happens
end;
initialization
TIWForm1.SetAsMainForm;
end.
Please advise
It has nothing to do with embedded frames.
1. iWmenu on page with menu - the click event gets through...
2. iwFrame with iWtreeNode and items on tree- the click event does not get through...
>>
unit Unit1;
interface
uses
Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Menus,
Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
IWTMSMenus, IWCompTreeview, Vcl.Forms, IWVCLBaseContainer, IWContainer,
IWHTMLContainer, IWHTML40Container, IWRegion;
type
TIWForm1 = class(TIWAppForm)
iwMnuMain: TTIWMainMenu;
mnuMain: TMainMenu;
mnuFile1: TMenuItem;
mnuMsgBox1: TMenuItem;
rgn1: TIWRegion;
tvwTest: TIWTreeView;
procedure mnuMsgBox1Click(Sender: TObject);
procedure tvwTestTreeItemClick(Sender: TObject;
ATreeViewItem: TIWTreeViewItem);
public
end;
implementation
{$R *.dfm}
procedure TIWForm1.mnuMsgBox1Click(Sender: TObject);
begin
WebApplication.ShowMessage('menu hello!'); //this happens
end;
procedure TIWForm1.tvwTestTreeItemClick(Sender: TObject;
ATreeViewItem: TIWTreeViewItem);
begin
WebApplication.ShowMessage(ATreeViewItem.Caption); //this never happens
end;
initialization
TIWForm1.SetAsMainForm;
end.
Please advise

