Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#12

Re: Opendialog-Fehler wegen zweiter Form?

  Alt 22. Jun 2008, 21:41
Herzlich willkommen in der Delphi-PRAXiS, Moondryl.

Unabhängig von Vista, D2007 und dem CoolTrayIcon - was du mit TOpenDialog machst, scheint nicht das zu sein, was du erreichen möchtest. Wenn du die internen Meldungen des TOpenDialog unterliegenden common dialog nicht sehen willst, dann darfst du die beiden Flags ofPathMustExist und ofFileMustExist nicht setzen:

Delphi-Quellcode:
const
  CUSTOM_MSG = '"%s" doesn''t live here anymore';

procedure TDemoForm.OpenButtonClick(Sender: TObject);
begin
  with OpenDialog do
    if Execute then
      if FileExists(FileName)
        then DoProcessFile(FileName)
        else ShowMessage(Format(CUSTOM_MSG, [FileName]));
end;
Freundliche Grüße
  Mit Zitat antworten Zitat