Problem mit dem Auslagern von Programmteilen

[Spook18]

Hallo Leute

Also folgendes, ich habe ein klitzekleines Problem, wird sich wohl ziemlich schnell beheben lassen, hoff ich.

Also folgendes, ich hab nen klitzekleines Programm, dass zeichnet auf der Delphi Form für mich rum. Wenn ich das erstelle, dann habe ich da folgendes:

NameImProgramm:=TTurtle.create(FORM1,Farbe);

Das Problem hier ist das dickgedruckte, der Ort, also die Form.
Weil wenn ich dieses Programm jetzt in einer Unit auslagere, dann kennt der die Form nicht, ich hab auch schon versucht die unter uses einzufügen, geht aber auch nicht!

Wie kann ich das Programm in einer externen Unit öffnen und dann in der Form zeichnen lassen?

Spook18

[mkinzler]

Sollte aber gehen. Zeig mal den Source. Zeichnen sollte man aber nur in der Paintmethode der Form

[Spook18]

hm, also ich hab das schon probiert... mit deinem fachvokabular musst du mir helfen, hab nich so ne ahnung, bin halt schüler... also ne Form hat ne Methode zum Zeichnen?

[mkinzler]

Zitat:

hm, also ich hab das schon probiert... mit deinem fachvokabular musst du mir helfen, hab nich so ne ahnung, bin halt schüler... also ne Form hat ne Methode zum Zeichnen?

Ja und diese wird jedesmal aufgerufen, wenn das Formular neu gezeichnet werden muss ( Verschieben, Größenänderung, nach Verdeckung, ...) Malst du direkt auf den Canvas, wird dein Kunstwerk sonst mit dem Standard übermalt.

[Spook18]

ja, das ist mir klar... aber kann ich damit auch beliebig zeichnen, so wie ich will? Also ich meine jetzt, kann ich in der Form so zeichnen, dass das nicht weg ist?

[mkinzler]

Ja, Einfach Paint() der Form überschreiben

[Spook18]

Moment, wie jetzt genau, was muss ich in die Units reinschreiben?

[mkinzler]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure Paint(); override;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.Paint();
begin
    Canvas.LineTo( 100,100);
end;

[Spook18]

ok, das sieht gut aus... aber in die Klammern nach dem Paint kommt nichts?

[mkinzler]

Zitat von Spook18:

ok, das sieht gut aus... aber in die Klammern nach dem Paint kommt nichts?

Nein ( du kannst diese auch weglassen)