Hallo vielen Dank für eure schnellen Antworten.
@Nuclearping bei deiner Methode bekomme ich folgendes:
procedure TForm1.FormCreate(Sender: TObject);
begin
FormResize(Self); // [Fehler] pong.pas(72): Undefinierter Bezeichner: 'FormResize'
Timer1.Enabled := False;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
OnResize := nil;
OnResize := FormResize;
end;
@Sakura vielen Dank auf diese Weise hat es funktioniert!
Könntest du Bitte noch Erklären warum ich diese so aufrufen muss(soll) und nicht "einfach" (
) selbst schreiben?