Naja das habe ich gerade probiert. Auf einmal gibt es einen Fehler bei der Erstellung der MDIChildForm, wo das Ganze beim createn stattfindet, und zwar:"Falscher Parameter"
Also das JPEG Bild habe ich auf das Bitmap assigned und das Bitmap dann wiederum auf das Bitmap32 vom Image32.
Delphi-Quellcode:
if (ExtractFileExt(MainForm.OpenPictureDialog1.FileName)='.jpg')or
(ExtractFileExt(MainForm.OpenPictureDialog1.FileName)='.jpeg')or
(ExtractFileExt(MainForm.OpenPictureDialog1.FileName)='.JPG')or
(ExtractFileExt(MainForm.OpenPictureDialog1.FileName)='.JPEG') then
begin
JPEGBild:=TJPEGImage.Create;
JPEGBild.LoadFromFile(MainForm.OpenPictureDialog1.FileName);
ZwischenBitmap:=TBitmap.Create;
ZwischenBitmap.Width:=Breite;
ZwischenBitmap.Height:=Hoehe;
ZwischenBitmap.Assign(JPEGBild);
JPEGBild.Free;
Bild_Img32.Bitmap.Assign(ZwischenBitmap);
ZwischenBitmap.Free;
exit;
end;