[Delphi] Changer le curseur de la souris, mais sur tout l'écran !

Changer le curseur de la souris, mais sur tout l'écran ! [Delphi] - Programmation

Marsh Posté le 02-01-2002 à 21:02:14    

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 !


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 02-01-2002 à 21:02:14   

Reply

Marsh Posté le 02-01-2002 à 21:17:57    

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


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-01-2002 à 21:55:27    

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


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 02-01-2002 à 21:58:53    

essaye SetSystemCursor
(10s de recherche dans l'aide de Delphi :sarcastic: )


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 02-01-2002 à 22:30:16    

[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]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 02-01-2002 à 22:46:41    

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:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-01-2002 à 02:05:52    

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 ?


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 03-01-2002 à 11:14:52    

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:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-01-2002 à 12:41:11    

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


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 03-01-2002 à 13:04:56    

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]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 03-01-2002 à 13:04:56   

Reply

Marsh Posté le 03-01-2002 à 13:18:41    

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.....


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-01-2002 à 16:53:39    

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 !


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 03-01-2002 à 16:57:52    

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:


---------------
What is popular is not always right, what is right is not always popular :D
Reply

Marsh Posté le 03-01-2002 à 17:37:32    

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]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 03-01-2002 à 18:08:57    

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:


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 03-01-2002 à 18:52:47    

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é...


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 03-01-2002 à 19:28:59    

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


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-01-2002 à 20:46:00    

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]


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 03-01-2002 à 21:04:33    

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


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 03-01-2002 à 21:12:57    

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......


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed