Bild wird in MDIForm nicht angezeigt!

[Christian Seehase]

Moin 1PM,

ich hab's mal probiert:

Ein Hauptformular als MDI als fsMDIForm, ein MDIChild (fsMDIChild), darauf ein TImage (alClient).
Dann über einen Menüpunkt das Image rausgesucht, und eine Datei geladen.
Klappt allerbest.

Delphi-Quellcode:

procedure TfrmMAIN.miFileOpenClick(Sender: TObject);

var
  i      : integer;
  imWork : TImage;

begin
  imWork := nil;
  for i := 0 to MDIChildCount-1 do
  begin
    imWork := MDIChildren[i].FindComponent('image1') as TImage;
    if Assigned(imWork) then break;
  end;
  if Assigned(imWork) then begin
    imWork.Picture.Bitmap.LoadFromFile('c:\temp\SK_AMA_BACS_0102.bmp');
  end;
end;