Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.544 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Transparenten Kreis zum übermalen der Bewegung zeichnen !?

  Alt 28. Nov 2012, 13:04
Welche der genannten Möglichkeiten soll ich denn erklären? Ich nehme mal die einfachste Variante: pack Dir ein TShape aus der Komponentenpalette auf Dein Formular, stelle Shape auf stCircle und Brush.Color auf die gewünschte Farbe. Nun musst Du nur noch Left und Top für die Bewegung neu setzen, z.B. in einem Timer. Einfaches Beispiel ohne Kollisionskontrolle:
Delphi-Quellcode:
procedure TDeinForm.DeinTimerTimer(Sender: TObject);
begin
  DeinShape.Left := DeinShapeLeft + x;
  DeinShape.Top := DeinShape.Top + y;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat