Megjelenésének módosítása a kurzor kontroll az ő e mousedown

Megjelenésének módosítása a kurzor kontroll az ő e MouseDown

A nyomtatványon küldte MyButton gomb: TButton, ha rákattint erre a gombra, hogy megtekinthesse crDefault kurzor átvált crHandPoint.
Ehhez én MyButtonMouseDown „, azaz írásban
MyButton.Cursor: = crHandPoint, de a kurzor nem változik.
Tehát hogyan változnak?
A folyamat révén Screen.Cursor nem kínálnak.

> Tehát hogyan változnak?

És írni: MyButton.Cursor: = crHandPoint. Csak nem értem, miért vegye onMouseDown felvezető, ahelyett OnClick.


> onclick

OnClick nem univerzális. Ő podaydot a gombot, de a DBGrid „egy van ez az esemény van.


> Miért válassza ki a kezelőt onMouseDown, ahelyett OnClick.

OnMouseDown kiválasztva, mert a kurzor átvált a préselés, és nem a kattintás „e.


> Tehát mi a kérdés? A közepén az „univerzális”
> Rendezvények?

Nem. Szükséges, hogy a DBGrid „e kurzor megváltozik onMouseDown” e.


> Csodák. A kérdés rájött TButton, most „lebeg”
> TDbGrid. Ez azonban semmit sem változtat.

Volt a TButton "egy és TDBGtrid" a.
És a kurzor meg kell változtatni, ha az egeret nyomva, azaz A onMouseDown „, azaz ezek az alkatrészek.
Így írok kódot onMouseDown „e DBGrid” a:
# XA0; DBGrid1.Cursor: = crHandPoint
A kurzor mint crDefault maradt.
Hasonló konténerek minden úgy történik, TButton „a.

Próbáld ki ezt:
Tedd a forma ApplicationEvents komponensnek és a felvezető OnMessage írd
ha (Msg.hwnd = DBGrid1.Handle) és (Msg.message = WM_LBUTTONDOWN), majd
dbgrid1.Cursor: = crHandPoint;

> Módszer révén Screen.Cursor nem kínálnak.

És mi ez a lehetőség nem tetszik?


> És ha mozog az egér elengedése nélkül a gombot - változásokat?

nincs


> És mi ezt a lehetőséget, nem tetszik?

Meg kell változtatni csak a kurzor DBGrid „a helyett az egész alkalmazást.

- Ha rákattint változtatni DBGrid.Cursor és Screen.Cursor
- Amikor ez megjelent visszaállítani Screen.Cursor a prezhdnemu állapotban

Ha megnyomja az egér gombját a onMouseDown, természetesen.

Tehát nem értem - [9], hogy nem működik?

> Tehát nem értem - [9], hogy nem működik?

És akinek tudnia kell, hogy működik-e vagy sem?

Szóval működik. Normális esetben ez működik. Egyszerűen, ha működik, akkor miért a bazár? Ez az, amit kérdeztem.

IMHO, mutogatni. felhasználó anélkül skachuchih kurzorok fog kerülni.

bár mint elvont feladat - érdekes)

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


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

Köszönöm, Joe. Úgy döntött, az én problémám.