Problem mit ausgelagerter Prozedur

[nerd]

Moin!

Hab ein Problem, ich will etwas mit einer Paintbox darstellen und nutze zum Zugriff auf diese eine ausgelagerte Prozedur...
Jetzt zeigt er mir an, dass pbox1. ein undefinierter Bezeichner ist. Ich kann also nicht auf das Forumlar zugreifen?!

Hat jemand eine Lösung?

Delphi-Quellcode:

procedure ani;
 begin
    while AnzDurchgange > 0 do
        begin
             xAktExt:=xAktExt+SummandX;
             yAktExt:=yAktExt+SummandY;
             xAkt:=round(xAktExt);
             yAkt:=round(yAktExt);
             pbox1.Canvas.Draw(xAkt,yAkt,kugel); //Fehler hier
             dec(AnzDurchgange);
        end;

Hoffe ihr könnt mir helfen! :witch:
lg,
nerd

[worker]

Delphi-Quellcode:

Form1.pbox1.Canvas.Draw(xAkt,yAkt,kugel);

Sofern denn dann die Form, auf der die PB liegt, Form1 heißt.

[blink182]

schöner wäre es vllt die Form als Parameter zu übergeben :) denn sonst bringt das auslagern ja eigentlich relativ wenig, machts vllt nur übersichtlicher wenn man alles auf mehrere Units verteilt.
MfG blink182

[nerd]

Zitat:

Zitat von worker

Delphi-Quellcode:

Form1.pbox1.Canvas.Draw(xAkt,yAkt,kugel);

Sofern denn dann die Form, auf der die PB liegt, Form1 heißt.

Funktioniert!! Danke!! :love: =D

[Bernhard Geyer]

Zitat:

Zitat von nerd

Zitat:

Zitat von worker

Delphi-Quellcode:

Form1.pbox1.Canvas.Draw(xAkt,yAkt,kugel);

Sofern denn dann die Form, auf der die PB liegt, Form1 heißt.

Funktioniert!! Danke!! :love: =D

Bitte nicht so machen sondern den Vorschlag von blink182. Die verwendung dieser globalen automatisch von der IDE angelegten Variablen ist eines der Hauptfehler die man machen kann. Das Programm wächst und irgendwann werden die Formulare dynamisch erzeugt und man wundert sich wieso es dann an solchen Stellen kracht bzw. nicht meh passiert da dann mit der falschen Formularinstanz gearbeitet wird.

[blink182]

mhm okay, tut mir leid, wusste ich nicht, werds mir für die Zukunft merken, Danke :)