Forum: Multimedia
Delphi
by kean,
19. Mär 2005
Die habe ich eingebunden bzw wird standardmäßig eingebunden. Wie kann es dann zu der Meldung kommen?
Forum: Multimedia
Delphi
by kean,
19. Mär 2005
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
Forum: Multimedia
Delphi
by kean,
19. Mär 2005
Ich habe eine kleine Funktion geschrieben welche mit Zufallsbilder anzeigen soll
function Zufallsfeld:TImage;
var name:string;
begin
name := 'Image'+Inttostr(RandomRange(14,1))+'_'+inttostr(RandomRange(15,1));
result := TImage(name);
end;