Hi,
dein erstes Problem ist an dieser Stelle:
Delphi-Quellcode:
procedure TForm1.WindradTimer(Sender: TObject);
begin
winkel := winkel+1;
TWindradZeichner.WindradZeichnen;
end;
Du Must diesen Aufruf mit einer gültigen Instanz deiner Klasse TWindradZeichner aufrufen.
der Code muß an dieser Stelle mindestens so aussehen:
Delphi-Quellcode:
procedure TForm1.WindradTimer(Sender: TObject);
var WZ : TWindradZeichner;
begin
winkel := winkel+1;
wZ := TWindradZeichner.create;
try
WZ.WindradZeichnen;
finally WZ.Free; end;
end;
Ich habe jedoch den restlichen Code nicht geprüft!!!! An dieser Stelle steckt aber das erste richtige Problem.
Gruß oki