Kreis wandern lassen

[jigger]

hi leute ich wollte mal fragen ob mir vielleicht jemand auf die sprünge helfen kann. es geht darum das ich einen kreis über canvas zeichnen kann. aber kann ich den kreis auch von einem punkt der mit einem radius r um einen festgelgetne mittelpunkt wandert, zeichenen lassen? weil ich muss mir noch einen solchen punkt konstruieren damit ich in und meine sich zeichnende evolvente vebinden kann. oder hat vielleicht jemand einen besseren tip???   danke schonmal für eventuele antworten jigger

[Langa]

nimmst nen timer

und dann einfach

Code: [Select]

procedure TForm1.TimerTimer(Sender: TObject);
Var winkel, r, x, y, x0, y0: integer;
begin
x0:=200; //mittelpunkt der kreisbahn
y0:=200;
winkel=winkel+1; //winkel wird pro schritt um eins erhöht
winkelrad := winkel / 180 * pi; // umrechnung in Gradma
ß x := x0 + round(r * cos(winkelrad)); // x-koordinate aus kreisbahn
 y := y0 + round(r * sin(winkelrad)); // y-koordinate aus kreisbahn
paintbox1.canvas.pen.color:=clred; //Kreis wird rot gemalt
paintbox1.canvas.ellipse(x0-x-2,y0-y-2,x0+x+2,y0+y+2); //der rotierende Kreis
end;


Also das hab ich jetzt nich getestet aber so ähnlich.
Hoffe ich konnt dir weiter helfen

[jigger]

ja vielen danke nur habe ich leider das problem das ich den mist heute abgeben muss und ich nichmal die scheiss tangente an meinen kreis bekommen habe naja egal. habe sowieso keine ahnung von delphi deswegen hätte ich die klausur sowieso nich bestanden. aber wie gesagt nochmal vielen dank für die mühe!!!!! jigger