FindComponent Problem ?

[thomas2009]

Hallo

das suchen nach einem Image innerhalb des Formulars funktioniert aber wenn
ich nach einem Image außerhalb suche, dann erscheint diese Fehlermeldung :
"undeclared TImage" !
image1.picture.Bitmap.Assign(Form2.TImage(FindComponent(Form2.myimage)).Picture.Bitmap); ich habe natürlich das String "myimage" als Global Variable in Form2 deklariert :

Delphi-Quellcode:

Bublic
myimage: String;
end;

[mkinzler]

Entwder
image1.picture.Bitmap.Assign(TImage(Form2.FindComponent(Form2.myimage)).Picture.Bitmap); oder besser
image1.picture.Bitmap.Assign((Form2.FindComponent(Form2.myimage) as TImage).Picture.Bitmap);

[thomas2009]

Es hat geklappt. Danke

Einige schreiben dafür eine Funktion
http://www.ureader.de/msg/12266264.aspx

[shmia]

Zitat von thomas2009:

Einige schreiben dafür eine Funktion

Und Andere machen den Fehler, nicht zu prüfen, ob FindComponent nicht vielleicht nil zurückliefert.

Delphi-Quellcode:

var
  c : TComponent;
begin
  if Assigned(Form2) then
  begin
    c := Form2.FindComponent(Form2.myimage);
    if Assigned(c) then
      image1.picture.Bitmap.Assign((c as TImage).Picture.Bitmap);
  end;

Noch schlauer wäre natürlich eine Funktion auf TForm2:

Delphi-Quellcode:

function TForm2.GetMyBitmap:TBitmap;
var
  c : TComponent;
begin
  c := FindComponent(myimage);
  if Assigned(c) then
    result := (c as TImage).Picture.Bitmap
  else
    Result := nil;
end;