OnClick not Submitted

[mludwig@adc-elektronik.de]

Problem can be reproduced easy in your Customstandalone Demo.

Add a IWBUTTON and a OnClick procedure.  All fine.

Now Add a OnResize  procedure.    If you click the Button javascripterror appears.










unit Main;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWTypes, IWCompLabel,
  Controls, IWBaseControl, IWControl, IWCompText, IWVCLBaseControl,
  IWBaseHTMLControl, IWCompButton;

type
  TIWForm1 = class(TIWAppForm)
    IWText1: TIWText;
    IWLabel1: TIWLabel;
    IWButton1: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWAppFormResize(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TIWForm1.IWAppFormResize(Sender: TObject);
begin
 exit;
end;


procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
 IWLabel1.Text := 'Click';
end;


Initialization
  TIWForm1.SetAsMainForm
end.