Bei Form1.print kommt stack overflow

[Natcree]

Wenn ich meine Form1 über form1.print ausdrucken will kommt einen Fehlermeldung und programm schmiert ab. Ein Stack Overflow Siehe Bild. ich hoffe es kann mir jemand Helfen ???

Hier der Code dazu.....

Delphi-Quellcode:

procedure TForm1.FensterDrucken1Click(Sender: TObject);
begin
printer.Orientation:=poLandscape;
Form1.Print;
end;

[DeddyH]

Außer dem unnötigen (und ggf. gefährlichen) "Form1." fällt mir in den 2 Zeilen nichts auf. Welche Events hast Du denn alle mit Code belegt, es scheint sich um einen Seiteneffekt zu handeln, so dass sich verschiedene Ereignisse gegenseitig auslösen.

[Natcree]

6 Weitere Forms

[DeddyH]

Danach hatte ich zwar nicht gefragt, aber setz doch mal einen Haltepunkt in die "Print"-Zeile (und lass das "Form1." weg). Wenn das Programm an der Stelle stoppt, steppst Du mit F7 durch. Kommt es dann zu irgendwelchen Wiederholungen?

[Natcree]

Woran erkenne ich wiederholungen

[Natcree]

Meinst du das hier auf dem Bild

[DeddyH]

Ich meinte damit, dass Du an eine Stelle kommst, an der Du schon einmal warst. Mal ein Beispiel:

Delphi-Quellcode:

procedure TSomeForm.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color := clRed;
  Canvas.FillRect(ClientRect);
  Repaint;
end;

Hier wird im OnPaint ein Repaint aufgerufen, was ein OnPaint auslöst, in dem Repaint aufgerufen wird, was ein OnPaint auslöst....

Ich vermute, etwas Ähnliches hast Du auch fabriziert.