Pong, Erstellung einer Prozedur TForm1.FormResize

[nuclearping]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FormResize (Self);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  OnResize := nil;
  ...
  OnResize := FormResize;
end;