Jak wywołac systemowy kursor wyboru łącza

[mckri]

Witam.
W jaki sposób mozna dla obiektu (np. Label) po najechaniu na niego myszką, wywołać systemowy kursor wyboru łącza (domyslnie to jest 'łapka')? Builder standardowo posiada kilka kursorów powiązanych z systemowymi (np. crAppStart, crHourGlass), ale 'łapki' systemowej tam nie ma. Wczytanie tego kursora do zasobów programu raczej odpada. Różne wersje Windows maja rózne kursory. Zalezy mi na wywołaniu własnie tego systemowego.

[Cyfrowy Baron]

Niemal każdy komponent posiada właściwość Cursor i w tej właściwości możesz wybrać jaki kursor ma być przypisany do danego obiektu, Domyślnie ta właściwość ma wartość crDefault, ale jeżeli chcesz łapkę to wybierz kursor crHandPoint.
Poza tym zawsze możesz umieÅ›cić w zasobach programu dowolny kursor i możesz go przypisać do dowolnego obiektu. Patrz ► patrz serwis: Cyfrowy Baron Spis wszystkich porad dziaÅ‚: Kursor. Tam masz opisane jak używać kursorów.

[mckri]

Wiem że Builder dostarcza inne podobne kursory. Dlatego że sa podobne a nie takie same, więc odpadaja.
Pozostaje wczytać lokalizację pliku kursora z rejestru. Dzieki.

[Cyfrowy Baron]

Nie od razu zrozumiałem o co Tobie dokładnie chodzi.
Nie musisz od razu pobierać ścieżki dostępu do takiego kursora z rejestru, istnieją prostsze metody.
Kursor systemowy można przypisać do obiektu w zdarzeniu OnMouseMove dla obiektu Label:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
     int X, int Y)
{
HCURSOR cursor = LoadCursor(NULL, IDC_HAND);
::SetCursor(cursor);
}
//---------------------------------------------------------------------------


gdzie IDC_HAND to jest właśnie "łapka".
Kursor "łapki" - systemowy - będzie w tym przypadku widoczny tylko na obiekcie Label i jeżeli zjedziesz kursorem z tego obiektu to zostanie przywrócony kursor domyślny, czyli nie potrzebujesz żadnego kodu więcej przywracającego kursor domyślny.

---

Identyfikatory dla innych kursorów:

• IDC_APPSTARTING - strzaÅ‚ka z maÅ‚Ä… klepsydrÄ… - praca w tle
• IDC_ARROW - strzaÅ‚ka - wybór normalny
• IDC_CROSS - krzyżyk - wybór precyzyjny
• IDC_HAND - rÄ…czka - wybór Å‚Ä…cza
• IDC_HELP - strzaÅ‚ka z pytajnikiem - wybór pomocy
• IDC_IBEAM - pionowa kreska - wybór tekstowy
• IDC_ICON - przestarzaÅ‚y, nie używany - brak kursora
• IDC_NO - znak zakazu - niedostÄ™pny
• IDC_SIZE - przestarzaÅ‚y, nie używany - brak kursora
• IDC_SIZEALL - krzyżak ze strzaÅ‚kami - przenieÅ›
• IDC_SIZENESW - zmiana wym. po przekÄ…tnej 2
• IDC_SIZENS - zmiana wymiaru pionowego
• IDC_SIZENWSE - zmiana wym. po przekÄ…tnej 1
• IDC_SIZEWE - zmiana wymiaru poziomego
• IDC_UPARROW - strzaÅ‚ka skierowana do góry - wybór alternatywny
• IDC_WAIT - klepsydra - zajÄ™ty