Einzelnen Beitrag anzeigen

madina

Registriert seit: 1. Nov 2005
153 Beiträge
 
#4

AW: TPaintBox1.Cursor setzen ?

  Alt 4. Mär 2012, 21:28
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
mfg
madina
  Mit Zitat antworten Zitat