I'm using the IWCGJQMMobiScroll215, having Treelist presets.
Here's is the code with the problems in the comments
- Code: Select all
procedure TIWForm2.IWCGJQMMobiScroll215JQMCoreOptionsSelect(Sender: TObject;
AParams: TStringList);
var i, j, k : integer;
v1, v2, v3 : string;
begin
for i := 0 to TIWCGJQMMobiScroll2TreeListOptions(IWCGJQMMobiScroll215.PresetOptions).Items.Count -1 do
begin
// selected is allways False
if TIWCGJQMMobiScroll2TreeListOptions(IWCGJQMMobiScroll215.PresetOptions).Items[i].Selected then
begin
v1 := TIWCGJQMMobiScroll2TreeListOptions(IWCGJQMMobiScroll215.PresetOptions).Items[i].Value;
break;
end;
end;
// value is allways ''
IWCGJQMLabel2.Text := IWCGJQMMobiScroll215.JQMCoreOptions.Value;
// IWCGJQMMOBISCROLL215_JQM_DATA=America V Brazil v Sao Paolo v
AParams.SaveToFile('params.txt');
{
AParams
Here i can find the selected items
IWCGJQMMOBISCROLL215_JQM_DATA=Asia Japan Kagoshima
IW_TrackID_=1
callback=IWCGJQMMOBISCROLL215.DoAjaxRequest
ajaxevent=JQMCoreOptions.OnSelect
ComponentName=IWCGJQMMobiScroll215
}
end;