SaveDialog --> Debugger Exception

[Störtebeker]

Hallo,

ich habe ein kleines Problem mit meinem Programm:

Ich habe mir zufällig die Vista CaptionButton runtergeladen (Inactive + Active) und verwende für den Wechsel folgendes von der TImage Komponente:

OnMouseDown:

Delphi-Quellcode:

begin
Image1.Picture.LoadFromFile('close-hover.png');
end;

und OnMouseUp:

Delphi-Quellcode:

begin
Image1.Picture.LoadFromFile('close.png');
end;

und OnClick:

Delphi-Quellcode:

begin
Form1.close;
end;

funzt auch alles. Nur wenn ich jetzt einen SaveDialog in mein Programm einfüge und dem entsprechenden Item im Mainmenü folgendes zuweise:

Delphi-Quellcode:

procedure TForm5.HTMLDokumentspeichern1Click(Sender: TObject);
var Dateiname: string;
begin
if SaveDialog1. Execute then
begin
    if ExtractFileExt(SaveDialog1.FileName) = '' then
      case SaveDialog1.FilterIndex of
        1: DateiName := ChangeFileExt(SaveDialog1.FileName,'.html');
        2: DateiName := ChangeFileExt(SaveDialog1.FileName,'.htm');
      end
    else
      Dateiname := SaveDialog1.FileName;
    SynEdit1.Lines.SaveToFile(Dateiname);
  end;
end;

und ich speichere und anschließend das Programm beenden möchte, kommt Delphi mit:

Zitat:

Debugger Exception Notification

Project Project1.exe raised exception class EFOpenError with message 'Cannot open file close.png'.
Process stopped. Please Step or Run to continue.

Die File ist allerdings im Projektordner drinne. Und ohne SaveDialog funzt es auch.

!!Please Help!!

mfG
Störtebeker