Промяна на външния вид на контрол на курсора в своята електронна MouseDown

Във формуляра е публикувал MyButton Button: TButton когато щракнете върху този бутон, за да го видите crDefault курсора трябва да се промени, за да crHandPoint.
За да направите това, аз MyButtonMouseDown "т.е. писане
MyButton.Cursor: = crHandPoint, но курсора не се променя.
Е, как да се промени с течение?
Процесът чрез Screen.Cursor не предложи.

> Е, как да се промени с течение?

И напишете: MyButton.Cursor: = crHandPoint. Просто не разбирам защо вземете OnMouseDown манипулатор, отколкото OnClick.

> OnClick

OnClick не е универсална. Той podaydot за бутона, но за DBGrid "за да има това събитие там.

> Защо да изберете манипулатор OnMouseDown, отколкото OnClick.

OnMouseDown избран, защото на курсора трябва да се промени, за да пресоването, а не върху Натиснете "Е.

> И така, какво е въпросът? В средата на "универсална"
> Събития?

Не. Необходимо е, че в DBGrid "д курсора променя OnMouseDown" д.

> Чудесата. Въпросът помислих TButton, сега е "плава"
> TDbGrid. Все пак, това не променя нищо.

Имах за TButton "а и TDBGtrid" а.
И курсора трябва да се промени, когато се натисне мишката, т.е. в OnMouseDown "т.е. тези компоненти.
Така че аз пиша код в OnMouseDown "д DBGrid" на:
# XA0; DBGrid1.Cursor: = crHandPoint
Указателят като crDefault остава.
Подобни Контейнери всичко се случва за TButton "а.

Опитайте това:
Сложете формата ApplicationEvents компонент и водача си OnMessage пиша;
ако (Msg.hwnd = DBGrid1.Handle) и (Msg.message = WM_LBUTTONDOWN) след това
dbgrid1.Cursor: = crHandPoint;

> Метод чрез Screen.Cursor не предложи.

И това, което тази опция не е за вас?

> И ако се движите мишката, без отпускане на бутона - промени?

не

> И това, което този вариант не ви устройва?

Трябва да сменя само на курсора DBGrid "по-скоро, отколкото цялото приложение.

- Когато кликнете, за да промените DBGrid.Cursor и Screen.Cursor
- Когато той се освобождава, за да възстановите Screen.Cursor в prezhdnemu състояние

Когато натиснете бутона на мишката в OnMouseDown, естествено.

Така че аз не разбирам - [9], че не работи?

> Така че аз не разбирам - [9], че не работи?

И кой трябва да знае, че работи или не?

Така че аз работя. Обикновено тя работи. Просто, ако тя работи, защо базара? Това е, което аз попитах.

IMHO, покажете. потребител без skachuchih курсори ще струва.

въпреки че като абстрактно задача - интересен)

# XA0; Panel1.Cursor: = crHandPoint;
# XA0; ReleaseCapture

> # XA0; Panel1.Cursor: = crHandPoint;
> # XA0; ReleaseCapture

Благодаря ти, Джо. Решихте проблема ми.