Problem mit Pointer von TForm

[Bernhard Geyer]

Wieso nochmal "Verpointern". TForm ist doch eine Referenz und damit ein Zeiger

Delphi-Quellcode:

type
TFahrzeug = class(TObject)
private
  FForm: TForm;
  procedure SetForm(var Value: TForm);
  {...}
end;

implementation

procedure TFahrzeug.refresh();
begin
  FForm.Refresh;
end;

procedure TFahrzeug.draw();
begin
  FForm.Canvas.Pixels[round(position.X), round(position.Y)] := clBlack;
end;