TOpenDialog: nur TXTs öffnen können

[Christian Seehase]

Moin Zusammen,

irgenwie scheint jeder die Ereignisse der Dialoge zu ignorieren

In diesem Falle käme das CanClose Ereignis in Frage:

Delphi-Quellcode:

procedure TForm1.OpenDialog1CanClose(Sender: TObject;var CanClose: Boolean);
begin
  CanClose := LowerCase(ExtractFileExt(OpenDialog1.FileName)) = '.txt';
end;