I drop a TWebOpenDialog on my form. It's the only TWebOpenDialog component in my project. I run my app and open the form. I do nothing else with the component at this point.
Here's my form's BeforeLoadDFMValues:
procedure TfrmMyListingPictures.LoadDFMValues;
begin
inherited LoadDFMValues;
MyPicturesContainer := THTMLContainer.Create('MyPicturesContainer');
WebOpenDialog1 := TOpenDialog.Create(Self);
MyPicturesContainer.BeforeLoadDFMValues;
WebOpenDialog1.BeforeLoadDFMValues;
try
Name := 'frmMyListingPictures';
Width := 1200;
Height := 491;
SetEvent(Self, 'OnShow', 'WebFormShow');
MyPicturesContainer.SetParentComponent(Self);
MyPicturesContainer.Name := 'MyPicturesContainer';
MyPicturesContainer.Left := 48;
MyPicturesContainer.Top := 48;
MyPicturesContainer.Width := 625;
MyPicturesContainer.Height := 241;
MyPicturesContainer.WidthStyle := ssAuto;
MyPicturesContainer.HeightPercent := 100.000000000000000000;
MyPicturesContainer.WidthPercent := 100.000000000000000000;
MyPicturesContainer.ChildOrder := 1;
MyPicturesContainer.ElementFont := efCSS;
MyPicturesContainer.ElementPosition := epRelative;
WebOpenDialog1.SetParentComponent(Self);
WebOpenDialog1.Name := 'WebOpenDialog1';
WebOpenDialog1.Left := 432;
WebOpenDialog1.Top := 320;
finally
MyPicturesContainer.AfterLoadDFMValues;
WebOpenDialog1.AfterLoadDFMValues;
end;
end;