Lecture seule et OpenDialog

**Fanny28** · 19/02/2004, 13h20

Coucou tout le monde,

j'ai un probleme avec un opendialog. Je voudrais pouvoir bloquer l'ouverture du fichier si le fichier sélectionné est en lecture seule. En cherchant sur l'aide, j'ai trouvé une propriété qui semblait correspondre parfaitement à ce que je cherchais, la propriété ofNoReadOnlyReturn. Donc je l'ai mis a true mais quand je sélectionne un fichier en lecture seule, il ne me met aucun message, comme il devrait le faire.

alors est ce que quelqu'un sait pourquoi ca ne marche pas, ou alors aurait une autre idée pour résoudre ce probleme de lecture seule.

merci a tous.

**Pierre Castelain** · 19/02/2004, 13h48

Cela n'a effectivement pas l'air de fonctionner...
Tu peux toujours te rabattre sur les événements du dialogue comme OnCanClose qui te permet via la propriété Filename de faire tous les tests que tu désire et de permettre la sélection ou non d'un fichier. Par exemple, dans le code suivant on n'autorise que le fichiers commencants par la lettre 'a' :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.OpenDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
var
  filename: string;
begin
  filename:= ExtractFilename(OpenDialog1.Filename);
  CanClose:= (filename <> '') and (filename[1] = 'a');
  if not CanClose then
    Application.MessageBox('Fichier interdit !', 'Choisissez mieux');
end;