Sorry für den Doppelpost aber sonst wird es zu unübersichtlich...
Delphi-Quellcode:
if timer.Enabled=true // niemals if... =true
//stattdessen bitte einfach if timer.enabled then
then
timer.Enabled:=false
else
timer.Enabled:=true ;
Mal ne andere Frage:
Wo zur hölle rufst du die methoden init und startinit auf?
Tut mir leid aber ich muss sagen, da ist so viel...
Lies dir doch nochmal ein paar tuts bei
dsdt z.b. durch.
nochwas:
Delphi-Quellcode:
unit Circle;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TCircle =
class
private
mp:TPoint;
//Mittelpunkte aus TPoint
r:integer;
//Radius
pwidth:integer;
//Stiftbreite
color:TColor;
public...
...
procedure TCircle.draw;
begin
Form1.drawCircle(mp, r, color, pwidth);
end;
Ist das nicht ne rückwertige Klassenbeziehung und somit eher unglücklich bis unmöglich?