IWCGJQMSelect1.SelectBoxList[0].ItemIndex := 1; // SET VALUE TO A
Statistics: Posted by Alexander Bulei — 03 Jan 2019 12:31
procedure TIWAppForm2.IWAppFormShow(Sender: TObject);
begin
IWCGJQMSelect1.SelectBoxList[0].Items.AddOption('A', 'A');
IWCGJQMSelect1.SelectBoxList[0].Items.AddOption('B', 'B');
IWCGJQMSelect1.SelectBoxList[0].Items.AddOption('C', 'C');
IWCGJQMSelect1.SelectBoxList[0].ItemIndex := 1; // SET VALUE TO A
end;
procedure TIWAppForm2.IWCGJQMButton1JQMButtonOptionsEventsVClick(Sender: TObject; AParams: TStringList);
begin
with IWCGJQMSelect1.SelectBoxList[0] do begin
WebApplication.ShowMessage(Items[ItemIndex].Value); // SHOW VALUE B
end;
end;
Statistics: Posted by cyracks — 03 Jan 2019 12:27
ps:I use IW 15.0.18
Statistics: Posted by Alexander Bulei — 03 Jan 2019 11:58
Statistics: Posted by cyracks — 02 Jan 2019 22:54
for i := 0 to MSelect.SelectBoxList[0].Items.Count-1 do begin
if MSelect.SelectBoxList[0].Items[i].Value = cActiveValue then begin
MSelect.SelectBoxList[0].ItemIndex := i+1; // +1: Bug ???
break;
end;
end;
MSelect.SelectBoxList[0].Items[MSelect.SelectBoxList[0].ItemIndex].Value
Statistics: Posted by cyracks — 02 Jan 2019 22:45
Statistics: Posted by Alexander Bulei — 15 Jan 2018 11:04
Statistics: Posted by Omega8 — 11 Jan 2018 13:03
Statistics: Posted by Espada — 07 Dec 2017 19:19
Statistics: Posted by Jorge Sousa — 07 Dec 2017 11:56
Statistics: Posted by Espada — 06 Dec 2017 19:15
Statistics: Posted by Alexander Bulei — 22 Aug 2016 17:51
Statistics: Posted by assapan — 22 Aug 2016 15:45
Statistics: Posted by Aggie85 — 19 Aug 2016 20:00
Statistics: Posted by Aggie85 — 10 Aug 2016 19:47