设置cursor无效??(200分)

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #1

我希望当mousedown的时候改变cursor形状,当mouseup的时候再恢复,
但是在mousedown事件里面写代码改变cursor没有作用,还是原来的样子,
似乎没有及时刷新cursor,怎么办?

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #2

移动以后有吗？要是没有的话，试一试把 crDrag（index 不知道是几）
的那个改为你的cursor,screen.cursor[aIndex] := yourCursor;
呵呵，没试过，

 

F

Fudei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #3

cAkk: 怎么又来光标问题.

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #4

试试这个

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
screen.Cursor:=crHandPoint;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
screen.Cursor:=crDefault;
end;

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #5

呵呵，cAkk,快给分，还有那个opendialog.....

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-09

• #6

就不给,气死你!横!