title: Delphi. How to disable Vcl Themes for TFileOpenDialog and TOpenDialog
body: <p>How to disable Vcl Themes for TFileOpenDialog and TOpenDialog ?</p>
  
  <p>I try</p>
  
  <pre><code>procedure TForm1.FormCreate(Sender: TObject);
  var
    chosenDirectory: String;
    openDialog : TFileOpenDialog;
  begin
  
    TStyleManager.Engine.RegisterStyleHook(TFileOpenDialog, TStyleHook);
  
    chosenDirectory:='';
  
    try
      openDialog:=TFileOpenDialog.Create(Self);
      openDialog.Options := [fdoPickFolders];
      // var 2
      // Not works
      //TStyleManager.Engine.RegisterStyleHook(TFileOpenDialog, TStyleHook);
  
      if openDialog.Execute then
        chosenDirectory:=openDialog.FileName;
    finally
      openDialog.Free;
    end;
  end;
  </code></pre>
  
  <p>but it's not work.
  I try variation 2. It's not work too.</p>