Populating WebResponsiveGridPanel at runtime

WEB TMS WEB Core
1

I have a web service that returns a json list of urls ( mp4 files ).

How do I create WebMultimediaPlayer within a WebResponsiveGridPanel ( already on the form ) from the list.

eg
url1 = www.mp1.mp4
url2 = www.mp2.mp4
url3 = www.mp3.mp4

2

Create the TWebMultimediaPlayer instances and add these to WebResponsiveGridPanel via WebResponsiveGridPanel.AddControl(mediaplayer)

3

Thanks Bruno,

procedure TForm7.WebButton1Click(Sender: TObject);
var
  C1,C2,C3: TWebMultimediaPlayer;
begin



    C1 := TWebMultimediaPlayer.Create(Self);
    C1.Visible := True;
    C1.Parent := WebResponsiveGridPanel1; //Any container: form, panel, ...
    C1.URL := 'https://rockstruck.com/rocksTruck.hyperesources/Rock%27sTruck-1.mp4';
    C1.Name := 'WebMultimediaPlayerC1';
    C1.WidthStyle := ssPercent;
    C1.WidthPercent := 100;
    C1.HeightStyle := ssPercent;
    C1.HeightPercent := 100;

    C2 := TWebMultimediaPlayer.Create(Self);
    C2.Visible := True;
    C2.Parent := WebResponsiveGridPanel1; //Any container: form, panel, ...
    C2.URL := 'https://rockstruck.com/rocksTruck.hyperesources/Rock%27sTruck-1.mp4';
    C2.Name := 'WebMultimediaPlayerC2';
    C2.WidthStyle := ssPercent;
    C2.WidthPercent := 100;
    C2.HeightStyle := ssPercent;
    C2.HeightPercent := 100;

    C3 := TWebMultimediaPlayer.Create(Self);
    C3.Visible := True;
    C3.Parent := WebResponsiveGridPanel1; //Any container: form, panel, ...
    C3.URL := 'https://rockstruck.com/rocksTruck.hyperesources/Rock%27sTruck-1.mp4';
    C3.Name := 'WebMultimediaPlayerC';
    C3.WidthStyle := ssPercent;
    C3.WidthPercent := 100;
    C3.HeightStyle := ssPercent;
    C3.HeightPercent := 100;
    C3.Controls := true;

I tried :slight_smile:
WebResponsiveGridPanel1.AddControl(C.Name);
WebResponsiveGridPanel1.AddControl(WebMultimediaPlayerC1)
but the IDE errors as WebMultimediaPlayerC1 dosen't exist.
The above works okay.

The only odd thing on inspecting the WebMultimediaPlayer name is not WebMultimediaPlayerC1 as expected. video id="TForm7_MultimediaPlayer7"

4

It should be
WebResponsiveGridPanel1.AddControl(C1);
WebResponsiveGridPanel1.AddControl(C2);
WebResponsiveGridPanel1.AddControl(C3);