Ok habe verstanden worauf du hinaus wolltest...
habe es jetzt folgendermaßen gelöst:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
MessageClk: Integer;
begin
try
if Opendialog1.Execute then
LabeledEdit1.Text := Opendialog1.FileName;
except
if Opendialog1.Execute then
begin
MessageClk := Application.MessageBox(
'Fehler beim Laden der Datei!' + #10#13 +
'Bitte Versuchen Sie es erneut.' + #10#13 +
'Achten Sie dabei auf den Dateityp!',
'ERROR',
0 + 48);
end;
end;
end;
Aber trotzdem verwunderlich warum das mit den beiden FOrms ist oder???...
Falls der Code anders geschrieben besser wäre bitte einfach nochmal antworten (war ebend nur kurz hingeschrieben, um zu schauen, ob es geklappt hat)...
Aber noch einmal ein großes Danke an Alle die sich gemeldet haben...
LG
Moondryl