Ordenar OpenDialog

[Neftali [Germán.Estévez]]

Efectívamente con las prisas me descuidé la "mitad" de las cosas por el camino...
No eres tú el que está lento de entendimiento, Román, soy yo...

Efectívamente falta el "manejador" que capture ese mensaje y que haga lo que tiene que hacer. En mi caso está en el form principal para "centralizar" ese comportamiento.

Os pongo el ejemplo completo donde está todo lo necesario. Lo "sencillo" es que a partir de ahora cualquier diálogo al que se llame basta con programarle en el OnShow la llamada a:

Código Delphi [-]
  // Abrir la vista de detalles.
  OpenDialogStyle(Sender as TCommonDialog, aStyle);

Siendo sStyle, uno de los estilos definidos por:

Código Delphi [-]
  // Definido en ComCtrls
  TViewStyle = (vsIcon, vsSmallIcon, vsList, vsReport);

Un saludo y perdonad por el despiste.

[roman]

Gracias por la respuesta Germán, pruebo al rato. Por lo que veo, mi error estaba en que intentaba lidiar, no con la ventana SHELLDLL_DefView, si no con la hija SysListView32.

// Saludos

[xio]

Ummmm! Necesito abrir un cuadro de dialogo y que me lo muestre con la vista de windows en miniaturas, pero no tengo forma de hacerlo. He estado viendo este post y he visto que hay forma de hacerlo pero no lo consigo.

Podriais echarme una mano??

Código Delphi [-]
  if OpenDialog.Execute then begin
    OpenDialog.InitialDir := ExtractFilePath(OpenDialog.FileName);
  end;

Asi es como abro yo el dialogo, podria adaptar esa forma que exponeis??

[Neftali [Germán.Estévez]]

Empezado por xio

Asi es como abro yo el dialogo, podria adaptar esa forma que exponeis??

¿Has mirado el ejemplo que hay un poco más arriba?

[xio]

Si, pero no se como integrarlo en mi codigo, soy un pelin torpe para estas cosas.....
He estado haciendo pruebas pero no se como integrarlo, lo siento

[Neftali [Germán.Estévez]]

Lo que tú estás haciendo es lo que en el ejemplo está como:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  OpenDialog2.Execute;
end;

El resto sólo tienes que copiarlo como está ahí.

[xio]

Pues perdona mi torpeza pero no me funciona. Podrias pasarme un ejemplo en codigo??