Sleep(100) //needed on slow remote connection. Wiggle the mouse to force cursor change. (** //if you're viewing using a slow remote connection you make need to do this: (WM_SETCURSOR,, MakeLParam(HTCLIENT, WM_MOUSEMOVE)) Force Windows to change the cursor by sending a WM_SETCURSOR message. If Ord(PaintBox1.Cursor) < Ord(crSizeAll) then PaintBox1.Cursor:= crArrowĮlse PaintBox1.Cursor:= Pred(PaintBox1.Cursor)
Procedure TForm57.Timer1Timer(Sender: TObject) If you want to change the cursor in code the following will work. If = 'OCR_NORMAL' thenĮlse if = 'OCR_HAND' thenĮlse if = 'OCR_IBEAM' then Procedure TForm2.pbRecMouseMove(Sender: TObject Shift: TShiftState X, Y: Integer)
Here is code used for capture icon of mouse in "Controled" part ( client side ).Īnd here is my code until now trying change icon of mouse in "Controler" part ( server side ): //pbRec is name of TPaintBox used How can I change this ( on "Controler" part ) only while mouse is inside the TPaintBox? TPaintBox has crDefault as default cursor. My software is using a TPaintBox because I need make others thing that is necessary a TPaintBox for work fine. I have a Remote Access similar to Team View software and I want change the mouse cursor ( on "Controler" part, server side in other words ) according with icon of mouse of "Controled" part, like was done in Team View software.
0 kommentar(er)
