HI,
ich programmier grad n Puzzlespiel. Und da soll man bloß Bilder öffnen können.
Hab den Filter im OpenDialog schon auf BMP, JPG und JPEG gesetzt, aber man kann
ja z.B. immer noch text.txt eingeben und dann kmmt natürlich n fehler wenn ich
das in ne TImage laden will. Nun hab ich folgendes geschreiben:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.OpenPic;
begin
if OpenDialog1.Execute then
begin
MessageDLG(OpenDialog1.FileName,mtInformation,[mbOK],0);
if OpenDialog1.FileName <> '*.bmp' then OpenPic;
end;
end; |
erstma nur für BMPs. Wenn ich jetzt ne BMP anklicke und öffne, was zur überprüfung
auch nochmal ausgegeben wird macht er den OpenDialog trotzem nochma auf! WARUM ?!
Kann mir da jemand helfen? jetzt scheiter ich schon an ne easy If-Anweisung
MfG & Thx Bergmann.
Jann1k
