Rechenintensiven Code bei OnMouseMove optimieren - aber wie?

[Christian Seehase]

Moin Yheeky,

so sollte es gehen, dann wird erst mal die Routine deaktiviert, gezeichnet, und die Routine neu aktiviert.

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

var
  mmSave : TMouseMoveEvent;

begin
  mmSave           := self.FormMouseMove;
  self.OnMouseMove := nil;
  try
  // Zeichnen
  finally
    self.OnMouseMove := mmSave;
  end;
end;