Zitat von
jfheins:
Delphi-Quellcode:
function Zufallsfeld:TImage;
var name:string;
begin
name := 'Image'+Inttostr(RandomRange(14,1))+'_'+inttostr(RandomRange(15,1));
result := FindComponent(name);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Imagelist1.GetBitmap(1,Zufallsfeld.Picture.Bitmap);
end;
Er bringt die Fehlermeldung "Undefinierter Bezeichner: 'FindComponent'".
Muss ich da noch irgendetwas einbinden? In der Delphi Hilfe steht mal nichts dabei.