Funktion soll TImage in erstelltem Form befüllen -> Fehler

[Whistler]

Moin,

folgende Funktion steht im Hauptformular:

Delphi-Quellcode:

function TfrmMain.LoadJPEG(Bildname:String; Ziel: TImage): Boolean;
var
  TEMPJPEG: TJPEGImage;
  ResStream: TResourceStream;
begin
  ResStream := TResourceStream.Create(HInstance, Bildname, 'JPEG');
  TEMPJPEG := TJPEGImage.Create;
  try
    TEMPJPEG.LoadFromStream(ResStream);
    Ziel.Picture.Bitmap.Assign(TEMPJPEG);
    Result := True;
  finally
    FreeAndNil(ResStream);
    FreeAndNil(TEMPJPEG);
  end;
end;

In "frmMain" gibt es dann folgende Prozedur:

Delphi-Quellcode:

procedure TfrmMain.LoadMainForm();
var
  Neuesform: TForm;
begin
  Neuesform:= TfrmZweitesForm.Create(Self);
  LoadJPEG('Main_Hintergrund', frmZweitesForm.imgHintergrund);
  try
    Neuesform.ShowModal;
  finally
    Neuesform.Release;
    Close;
  end;
end;

Gewünschtes Verhalten:
"frmMain" erstellt "frmZweitesForm" zur Laufzeit und holt dann ein JPEG Bild aus dem Res-File und assigned es einem "TImage" auf "frmZweitesForm".

Die Funktion für sich funktioniert prima wenn ich ein TImage auf dem "frmMain" befüllen will...

Sobald aber das andere Form angesprochen wird, gibt EAccessViolation...

[cruiser]

mh... smells like MDI

Code:

LoadJPEG([color=#0000cc]'Main_Hintergrund'[/color], [color=#df0000]Neuesform[/color].imgHintergrund);

immer schön den Bezeichner auf den created wurde nutzen ;)

[Whistler]

Nein, ist kein MDI.

Und wenn ich hier "Neuesform." nehme, meldet der Compiler, dass er kein imgHintergrund kenne...
Logisch - existiert ja erst zur Runtime.

Nur wie sage ich das Delphi? ;)

[Whistler]

...kann es sein, dass die "Instanz" lediglich auf Form1 existiert, beim Zuweisen auf Form2 hat Form2 hierbei keinen Zugriff auf jene und es kommt zwangsweise zum Austieg...?


...oder weil das Fenster nicht "richtig" initialisiert wurde?
Wenn ich es beim Start erstellen lasse, geht es nämlich!

Ja genau! Das ist mein Problem. "Form2.Images..." Aufruf geht nicht, weil "Form2" Nil ist... doch wie ändern?

[Whistler]

Mein Problem war, dass zum Zeitpunkt der Zuweisung der Zeiger leer war.
Problem wurde nun gelöst.