Добавить элементы управления в OpenDialog

[Zeronim]

Здраствуйте, возникла такая проблема. Имеется главная форма, а на ней компоненты медиаплеер и трекбар. Также имеется диалог выбора файла Opendialog. Как можно медиаплеер и трекбар запихнуть в окно OpenDialog'a? А также можно ли как нибудь отслеживать какой файл выделен, до выполнения opendialog.execute? Поделитесь мыслями на этот счет, если есть.

[volvo877]

Идея вот такая (сделал Interceptor class, чтоб не писать свой компонент, но можно написать и отдельным компонентом, естественно):

type
   // Перед описанием класса формы
   TOpenDialog = class(Dialogs.TOpenDialog)
   private
      ParentHandle : THandle;
      FMainPanel : TPanel;
      FMediaPlayer : TMediaPlayer;

   protected
      procedure DoClose; override;
      procedure DoShow; override;
      procedure DoSelectionChange; override;

   public
      constructor Create(AOwner : TComponent); override;
      destructor Destroy; override;
      function Execute : Boolean; override;
   end;

   TForm1 = class(TForm)
   // ...


// Реализация:

constructor TOpenDialog.Create(AOwner : TComponent);
begin
   inherited Create(AOwner);
   ParentHandle := 0;

   Options := [ofFileMustExist, ofEnableSizing, ofHideReadOnly, ofPathMustExist];
   FMainPanel := TPanel.Create(Self);
   with FMainPanel do
   begin
      Name := 'MainPanel';
      Caption := '';
      SetBounds(204, 5, 500, 200);
      BevelOuter  := bvNone;
      BorderWidth := 1;
   end;

   // Теперь на эту панель добавляешь все что нужно:
   FMediaPlayer := TMediaPlayer.Create(Self);
   with FMediaPlayer do
   begin
      Align := alTop;
      Parent := FMainPanel;
   end;
End;

destructor TOpenDialog.Destroy;
begin
   inherited;
end;

procedure TOpenDialog.DoClose;
begin
   inherited;
end;

function IsDirectory(const DirName: string): Boolean;
var
  Attr : Integer;
begin
  Attr := FileGetAttr(DirName);
  Result := (Attr <> -1) and (faDirectory = (Attr and faDirectory));
end;

procedure TOpenDialog.DoSelectionChange;
begin
   if not IsDirectory(Self.FileName) then
   begin
      FMediaPlayer.Close;
      FMediaPlayer.FileName := Self.FileName;
      FMediaPlayer.Open;
   end;
   inherited;
end;

procedure TOpenDialog.DoShow;
var
   DialogHeight, DialogWidth : Integer;
   PreviewRect, StaticRect : TRect;
Begin
   ParentHandle := GetParent(Handle);
   GetClientRect(Handle, PreviewRect);
   StaticRect := GetStaticRect;

   DialogWidth := StaticRect.Left + (StaticRect.Right - StaticRect.Left) + 500;
   DialogHeight := StaticRect.Top + StaticRect.Bottom + 30;
   MoveWindow(ParentHandle,(Screen.Width - DialogWidth) div 2,
                           (Screen.Height - DialogHeight) div 2,
                           DialogWidth, DialogHeight, True);
   PreviewRect.Left := StaticRect.Left + (StaticRect.Right - StaticRect.Left);
   Inc(PreviewRect.Top, 4);
   PreviewRect.Right := PreviewRect.Left + 500;

   FMainPanel.BoundsRect := PreviewRect;
   FMainPanel.ParentWindow := Handle;
   inherited;
end;

function TOpenDialog.Execute : Boolean;
begin
   if NewStyleControls and not (ofOldStyleDialog in Options) then
      Template :='DLGTEMPLATE'
   else
      Template :=nil;

   Result := inherited Execute;
end;

В результате получается вот так:

[Zeronim]

volvo877, спасибо! правда не совсем понятно как оно работает, но буду разбираться)