Ver Mensaje Individual
  #3  
Antiguo 26-05-2010
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Usa su propiedad Filter. En el inspector de objetos das click en el botoncito con puntitos a la derecha de la propiedad y se abre el editor de filtros. Puedes poner varios, uno en cda línea. En la columna izquierda pones lo que el usuario verá en la lista de filtros, por ejemplo

Archivos Ini (*.ini)

y en la columna derecha pones el filtro en sí:

*.ini

Ahora, esto no impide que el usuario cambie el filtro con el diálogo abierto y escoja otro tipo de archivo, únicamente filtra para mostrar de inicio sólo los archivos INI.

Pero puedes hacer uso del evento OnCanClose del OpenDialog:

Código Delphi [-]
procedure TForm1.OpenDialog1CanClose(
  Sender: TObject; var CanClose: Boolean);
begin
  CanClose := UpperCase(ExtractFileExt(OpenDialog1.FileName)) = '.INI'
end;

con lo cual impides que el usuario escoja otro tipo de archivo.

// Saludos
Responder Con Cita