Text in Form2 übertragen

[s-off]

Hallo,

bei mir funktioniert das so, wie Du es beschrieben hast.

Delphi-Quellcode:

Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin
   Case x Of
      0..96: form2.Canvas.TextOut(20, 20, 'test');
   End;
End;

Procedure TForm1.FormShow(Sender: TObject);
Begin
   Form2.Show;
End;

Edit: ok, mit dem Unterschied, dass ich die Form sichtbar habe, also das von Sirius genannte Neuzeichnen bei mir nicht anfällt.