tlocalstorage change event

WEB TMS WEB Core
1

Hi ,

thank you very much for the onchange event in tlocalstorage.
But this event is never ever fired in my tests:
See following simple code:

procedure TForm3.mystoragechange(Sender: TObject; AKey: string; AOldValue: string; ANewValue: string; AURL: string);
begin
webmemo1.lines.add('key '+akey+' changed from '+aoldvalue+' to '+anewvalue);
end;

procedure TForm3.WebButton1Click(Sender: TObject);
begin
storage.values['testkey']:=webedit1.text;
end;

procedure TForm3.WebFormCreate(Sender: TObject);
begin
storage:=tweblocalstorage.create; // kommunikation mit den sessions
storage.onchange:=mystoragechange;
end;

To test it i open more than one browser tab in chrome with:
http://localhost:8000/Test3/Project3.html

In all browser tabs i can see that content of 'testkey' is changing but mystoragechange
is never fired.

What am i doing wrong ?

regards
Peter

2

There is now a non-visual component (created with constructor Create(AOwner))
Can you drop the component on the form and use the event handler from this non-visual component on the form?

3

Thank you very much,
now it runs !!!

Peter