TPaintBox1.Cursor setzen ?

[madina]

Hallo an Alle,

ich versuche mit den folgenden SourceCode einen benutzerdefinierten Cursor für einen TPaintBox1 in dem Ereignissen TPaintBox1.MouseDown, TPaintBox1.MouseMove und TPaintBox1.MouseUp setzen.

Delphi-Quellcode:

{$R .\mycursor.res}

crHand:= 1;

screen.cursors[crHand]:= LoadCursor(hInstance, "cursor1");

{1. soweit ich versuche über einen ButtonKlick einen Zuweisung mache ist es kein Problem wie folgt die richtige benutzerdefinierte Mouse ist dann aktiv:}

PaintBox1.Cursor:= crHand;


{2. aber wenn ich versuche über die Ereignisse TPaintBox1.MouseDown, TPaintBox1.MouseMove und TPaintBox1.MouseUp eine Zuweisung an die TPaintBox1.Cursor mache, wird der Wert richtig überwiesen aber dann wird er nicht aktiv}

PaintBox1.Cursor:= crHand;


Warum ??????

Für eine Antwort wäre ich dankbar.
Madina

[sx2008]

Jedes Control ("visuelles Steuerelement") hat ja das Property Cursor.
Wenn die VCL merkt dass das Control unter dem Mauszeiger einen anderen Cursor hat, wird dieser Cursor angezeigt.
Nur wenn der Mauszeiger schon über dem Control ist bekommt die VCL eine Änderung des Cursor-Propertys nicht mit.
Möchte man den Cursor direkt verändern, dann geht das so:
Screen.Cursor := crHand;

[Pitschki1801]

Wenn du den Cursor nur für die Paintbox ändern willst, würde ich diesen im OnMouseEnter setzten.

Delphi-Quellcode:

procedure TForm1.PaintBox1MouseEnter(Sender: TObject);
begin
    Paintbox1.Cursor := crHandPoint;
end;

[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

[Pitschki1801]

Das kann so nicht funktionieren, wenn du dir nochmal genau anschaust was du da tun willst.
Wenn du den Cursor immer crHand stehen haben möchtest was spricht dagegen diesen als Defaultwert einzustellen?
Du musst dann aber dafür sorgen das der Cursor nach einem Click auch wieder zurück gesetzt wird z.B. im OnMouseLeave

[madina]

Hallo,

leider

OnMouseLeave und
OnMouseEnter

finde ich nirgendswo ?

MFG

[DeddyH]

Welche Delphi-Version?

[madina]

Hallo,

Delphi V5

MFG