Sagt mal, ich hab jetzt zu Bild2 folgendes erstellt:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var s:string;
i:integer;
begin
image1.Show;
begin
with image1.canvas do
for i:= 1 to 11 do
begin
s:='Informatik';
font.Size:=1*i;
font.Name:='Ariel';
brush.color:=clwhite;
textout(30,15*i,s);
end;
end;
end;
Wie kann ich denn jetzt denn jetzt noch randomize einbauen, so dass sich die Schriftart beim Anklicken ändert?
Gruß Claudi