Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2846 connectés 

 


Dernière réponse
Sujet : [Delphi] Changer le curseur de la souris, mais sur tout l'écran !
[SDF]Poire

antp a écrit a écrit :

bhen ça je sais pas... faut trouver comment récupérer le curseur, y a pas un GetSystemCursor par hasard ? :D  




Non C GetCursor tout simplement......


Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
[SDF]Poire

antp a écrit a écrit :

bhen ça je sais pas... faut trouver comment récupérer le curseur, y a pas un GetSystemCursor par hasard ? :D  




Non C GetCursor tout simplement......

antp bhen ça je sais pas... faut trouver comment récupérer le curseur, y a pas un GetSystemCursor par hasard ? :D
juju_le_barbare Et si je veux remplacer 'OCR_APPSTARTING' par le pointeur standard, quel qu'il soit ???
 
J'ay arrive pas, je tape :
 
SetSystemCursor(LoadCursor( , OCR_CROSS), OCR_APPSTARTING);
 
                                             /\
---------------------------|
 
 :cry:  :cry:  :cry:  :cry:  :cry:

 

[edtdd]--Message édité par juju_le_barbare--[/edtdd]

[SDF]Poire

antp a écrit a écrit :

et 100 balles et un Mars ? :D
 
SetSystemCursor(LoadCursorFromFile(PChar(ExtractFilePath(Application.ExeName) + 'moncurseur.cur')), OCR_NORMAL);
 
et tu places dans le repertoire du Exe un fichier moncurseur.cur
un vrai curseur hein, pas un bmp renommé...  




J'veux bien le Mars moi :D

antp et 100 balles et un Mars ? :D
 
SetSystemCursor(LoadCursorFromFile(PChar(ExtractFilePath(Application.ExeName) + 'moncurseur.cur')), OCR_NORMAL);
 
et tu places dans le repertoire du Exe un fichier moncurseur.cur
un vrai curseur hein, pas un bmp renommé...
juju_le_barbare Salut,
 
Alors tu pourrais me donner la syntaxe exacte de ce que je dois taper DTP, que le curseur soit d'un fichier cur ou autre come t veux :
 
merci :sarcastic:
antp

juju_le_barbare a écrit a écrit :

J'ai créé un bouton avec :
 

Code :
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3. SetSystemCursor (LoadCursor(application.handle, IDC_UPARROW),OCR_UP);
  4. end;


 
Mais ca fait rien quand je clique !  




 
 
bhen est-ce que tu as un curseur de ce nom là dans tes ressources ? c'est plus facile de tester avec un fichier .cur je crois
 
surtout qu'ici ce que tu fais c'est remplacer le curseur uparrow par lui même on dirait :??:

 

[edtdd]--Message édité par antp--[/edtdd]

darklord22

antp a écrit a écrit :

 
 
ok, j'attends les justifications... mais je parie que c'est pour pas qu'on voie que l'appli fait travailler le PC, ce qui provoque l'apparition du curseur d'attente... comment camoufler du mauvais code quoi :D  
 




 
LOL  :lol:  :lol:  :lol:  
 
 :hello:

juju_le_barbare J'ai créé un bouton avec :
 

Code :
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3. SetSystemCursor (LoadCursor(application.handle, IDC_UPARROW),OCR_UP);
  4. end;


 
Mais ca fait rien quand je clique !

[SDF]Poire

juju_le_barbare a écrit a écrit :

PLIIIIIIIIZZZZZZZZ Comment utiliser cette API STP ???
 
Il me demande un identificateur, que mettre ?  




T'as des pb avec l'aide on dirait :pt1cable: .... Y a un chtite touche magique F1 tu clicks sur la fonction et F1 et pouf y a l'aide aprés tu jette un chtit coup d'oeuil aux see also et en général t'as tout ce qu'il faut.....

antp BOOL SetSystemCursor (HCURSOR hcur, DWORD id);
 
Le premier paramètre c'est un Handle. Tu dois donc d'abord charger ton curseur en mémoire (LoadCursor si c'est dans des ressources, LoadCursorFromFile si c'est un fichier .cur). Ça te donne le handle en valeur de retour.
 
Ensuite l'id c'est un de ces trucs:

Code :
  1. OCR_NORMAL        normal arrow cursor
  2. OCR_IBEAM         I-beam cursor
  3. OCR_WAIT          larger hourglass cursor
  4. OCR_CROSS         crosshair cursor
  5. OCR_UP            up arrow cursor
  6. OCR_SIZE          size cursor
  7. OCR_ICON          icon cursor
  8. OCR_SIZENWSE      NW to SE sizing cursor
  9. OCR_SIZENESW      NE to SW sizing cursor
  10. OCR_SIZEWE        horizontal sizing cursor
  11. OCR_SIZENS        vertical sizing cursor
  12. OCR_SIZEALL       horizontal and vertical sizing cursor
  13. OCR_SIZENO        international no symbol cursor
  14. OCR_APPSTARTING   smaller hourglass with arrow cursor


 
le fichier WIN32.HLP installé dans Borland Shared\MSHelp est une mine d'or pour les infos sur l'API Windows.

 

[edtdd]--Message édité par antp--[/edtdd]

juju_le_barbare PLIIIIIIIIZZZZZZZZ Comment utiliser cette API STP ???
 
Il me demande un identificateur, que mettre ?
[SDF]Poire Comment G fais ?
1- C'étais de l'API donc Guide du développeur Microsoft Windows
2- Dans Index G tapé cursor et G sélectionné cursor fonctions
3- Voilà
 :hello:
juju_le_barbare je teste le soft, pas le temps d'optimiser le code POUR l'INSTANT !!!
 
Je vais essayer l'API. T'as cherhcé comment pour trouver ?
[SDF]Poire

antp a écrit a écrit :

 
 
ok, j'attends les justifications... mais je parie que c'est pour pas qu'on voie que l'appli fait travailler le PC, ce qui provoque l'apparition du curseur d'attente... comment camoufler du mauvais code quoi :D  
 
 




 :lol:  :lol:  :lol:

antp

[SDF]Poire a écrit a écrit :

 
T dur là.... Tu sais pas ce qu'il veut faire  :D  




 
ok, j'attends les justifications... mais je parie que c'est pour pas qu'on voie que l'appli fait travailler le PC, ce qui provoque l'apparition du curseur d'attente... comment camoufler du mauvais code quoi :D

 

[edtdd]--Message édité par antp--[/edtdd]

[SDF]Poire essaye SetSystemCursor
(10s de recherche dans l'aide de Delphi :sarcastic: )
[SDF]Poire

antp a écrit a écrit :

ouais bhen c'est pas bien ce genre de choses :non:  




T dur là.... Tu sais pas ce qu'il veut faire  :D

antp ouais bhen c'est pas bien ce genre de choses :non:
juju_le_barbare Bonjour,
 
J'aimerias pouvoir modifier, du moins pendant que l'appli tourne (pas définitivement) l'icône standard de la souris.
Par exemple si crDefault est une flèche, et que crAppStart est une flèche pour souris, faire en sorte que crAppStart soit aussi une souris.
 
Comme ça si Windows demande à mettre crAppStart, l'utilisateur verra pas une flèche+souris, mais une flèche.
 
Et ceci juste le temps que tourne l'appli, ou bien définitivement, c'est pas important. Et bien sûr sur tout l'écran (pas que sur la form).
 
J'ai bien cherché, mais j'ai pas trouvé ...
 
Merci d'avance !

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)