TPaintBox1.Cursor setzen ?

[madina]

Hallo,

aber ich will einen MouseCurosor über TPaintBox1 in nur seinen folgenden Ereignissen ändern:

Delphi-Quellcode:

Procedure TForm1.TPaintBox1.MouseDown()
begin
  PaintBox1.Cursor:= crDefault;
end;

Procedure TForm1.TPaintBox1.MouseMove()
begin
  PaintBox1.Cursor:= crHand;
end;

Procedure TForm1.TPaintBox1.MouseUp()
begin
  PaintBox1.Cursor:= crDefault;
end;

Wie kann ich sowas realisieren und dem TPaintBox sagen, jetzt mußt du die Curor-Anzeige ändern?

MFG