Results 1 to 6 of 6

Thread: Cursor

  1. #1
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Cursor

    CodeTyphon 7.10 - Windows10.

    Hoe kan ik de standaard cursor (crDefault) veranderen in crHandPoint als ik met de muis op een DBGrid-Colomn-Title sta?
    Als ik de 'title' verlaat moet het terug crDefaul worden.
    Met DBGrid.onmousemove gaat het blijkbaar niet !

  2. #2
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Question

    Geen oplossing mogelijk ?
    Of toch ?

  3. #3
    De vraag is ruim 50 keer bekeken en de leden kennende zou iemand best een oplossing hebben gegeven wanneer er een snelle was.
    Ook ik heb gezocht en geen oplossing gevonden.
    Het lijkt er dus op dat er een 'workaround' moet worden gezocht.
    Een idee wat ik heb: met de 'onmousemove' bekijk je de coordinaten en wanneer de coordinaten binnen de grenzen vallen van de titelbalk wijzig je de cursor. Uiteraard weer terug wanneer de cursor meer naar beneden gaat en wanneer de cursor de DBGrid verlaat.
    Het is even knutselen en puzzelen, maar het geeft voldoening wanneer het is gelukt.

    Veel succes!
    (Overigens hoop ik dat iemand een vee-eel beter, makkelijker en mooier oplossing geeft!)

  4. #4
    Dat zou er dan zo uitzien (niet getest):

    Delphi Code:
    1. procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    2. var
    3.   pt: TGridcoord;
    4. begin
    5.   pt:= DBGrid1.MouseCoord(x, y);
    6.   if pt.y=0 then
    7.     DBGrid1.Cursor:=crHandPoint
    8.   else
    9.     DBGrid1.Cursor:=crDefault;
    10. end;

  5. #5
    Silly member NGLN's Avatar
    Join Date
    Aug 2004
    Location
    Werkendam
    Posts
    5,133
    Quote Originally Posted by seghele View Post
    Met DBGrid.onmousemove gaat het blijkbaar niet !
    Ai, dat is jammer. Maar waarom dan niet? Kun je laten zien wat je precies hebt geprobeerd? In hoeverre was het resultaat daarvan onverwacht?
    (Sender as TNLDUser).Signature := 'Groeten van Albert';

  6. #6
    Senior Member
    Join Date
    Sep 2004
    Location
    BELGIE(Vilvoorde)
    Posts
    685

    Thumbs up

    rvk, zoals steeds, een dikke pluim voor jouw code.
    Daar was ik nooit terecht gekomen.
    Het werkt zoals ik hoopte.
    BEDANKT en hopelijk tot later ......

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •