Einzelnen Beitrag anzeigen

Joe24

Registriert seit: 21. Dez 2004
Ort: Berlin
51 Beiträge
 
#5

Re: Canvas verschwindet, wenn man mit Windowsfenster drüber

  Alt 31. Dez 2004, 22:29
Die einfachste Variante:

Mal angenommen die Figuren werden direkt auf das Formular gezeichnet:

Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
begin
  [Zeichne Hintergrund]
  [Zeichne Mauer o.ä.]
  [Zeichne Figur an stelle x,y]
  ...
end;
Vorteilhafter ist es für die Figuren eine eigene Klasse zu erstellen, z.b von TCustomControl
abgeleitet, die das Aussehen sowie das Verhalten definiert.
In dieser Klasse kann ebenfalls das OnPaint-Ereignis zum Zeichnen der Figuren
verwendet werden.
Auf dem Formular erzeugst du dann je nach Bedarf beliebig viele Instanzen dieser Klasse.