Hier noch schnell ein paar Erläuterungen dazu.
Grundsätzlich ist diese Form des direkten Zugriffes auf globale Variablen nicht so schön. Gerade wenn du
OOP arbeitest, ist der Sinn unteranderem auch, dass du deine werte in Form von Zuweisungen in Funktionen, Methoden und Eigenschaften übergibst. Soll deine neue klasse auch anderweitig eingesetzt werden, so wirst du in Zukunft immer über dein Form1 stolpern, da sie eine Variable aus einer anderen
Unit ist.
der Aufruf für eine Übergabe mittels Parameter in deinem Fall ist dann so:
Delphi-Quellcode:
procedure TForm1.WindradTimer(Sender: TObject);
var WZ : TWindradZeichner;
begin
winkel := winkel+1;
wZ := TWindradZeichner.create;
try
WZ.WindradZeichnen(self.canvas);
finally WZ.Free; end;
end;
Gruß oki