Procedure ansprechen

[Matze1848]

Ich hab die Procedure

procedure TKreis.Zeichnen (Radius: Integer; Mittelpunkt: Integer);
var a:integer;
begin
With Form1.Canvas do begin
a:=Random(230);
Form1.Canvas.Ellipse(0,a,Radius,a+Radius);
end;
end;

und möchte die mit einem Button ansprechen

begin
TKreis.Zeichnen(40,1);
end;

irgendwie funktioniert das nicht, was mache ich falsch???

[DeddyH]

Du brauchst eine Instanz von TKreis.

Delphi-Quellcode:

Kreis := TKreis.Create;
try
  Kreis.Zeichnen(40,1);
finally
  Kreis.Free;
end;

Ansonsten bräuchtest Du eine Klassenmethode. Übrigens macht Dein Code nicht sonderlich viel Sinn, wenn Du hartkodiert auf den Canvas eines Formulars zeichnest.

[Singlepin]

Ich denke dein Problem ist gelöst wenn du den Typebezeicher beim Programmaufruf weg läßt.

Delphi-Quellcode:

begin
Zeichnen(40,1);
end;

[DeddyH]

Aber nur innerhalb einer Methode von TKreis.

[Darlo]

[glaskugel]
Wenn das Formular "Kreis" heißt, dann nenne die Procedure nur "zeichnen" und setze dann vor
dem Abschnitt

var
Kreis: TKreis;

procedure Zeichnen(Radius: Integer; Mittelpunkt: Integer);

ein.

Aber nur mal ins Blaue geraten....
[/glaskugel]