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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] Changer le curseur de la souris, mais sur tout l'écran !

juju_le_barbare

Vous fiez pas aux apparences !

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

Publicité

antp

Super Administrateur
Champion des excuses bidons

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

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

[SDF]Poire

Vive Grumly

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

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

[SDF]Poire

Vive Grumly

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:

antp

Super Administrateur
Champion des excuses bidons

[SDF]Poire a écrit a écrit :

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

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

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

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

[SDF]Poire

Vive Grumly

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

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

juju_le_barbare

Vous fiez pas aux apparences !

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

[SDF]Poire

Vive Grumly

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:

juju_le_barbare

Vous fiez pas aux apparences !

PLIIIIIIIIZZZZZZZZ Comment utiliser cette API STP ???

Il me demande un identificateur, que mettre ?

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

antp

Super Administrateur
Champion des excuses bidons

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 :

OCR_NORMAL normal arrow cursor
OCR_IBEAM I-beam cursor
OCR_WAIT larger hourglass cursor
OCR_CROSS crosshair cursor
OCR_UP up arrow cursor
OCR_SIZE size cursor
OCR_ICON icon cursor
OCR_SIZENWSE NW to SE sizing cursor
OCR_SIZENESW NE to SW sizing cursor
OCR_SIZEWE horizontal sizing cursor
OCR_SIZENS vertical sizing cursor
OCR_SIZEALL horizontal and vertical sizing cursor
OCR_SIZENO international no symbol cursor
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

Publicité

[SDF]Poire

Vive Grumly

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:

juju_le_barbare

Vous fiez pas aux apparences !

J'ai créé un bouton avec :

Code :

procedure TForm1.Button1Click(Sender: TObject);
begin
SetSystemCursor (LoadCursor(application.handle, IDC_UPARROW),OCR_UP);
end;

Mais ca fait rien quand je clique !

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

darklord22

Nightwish rulezzzzzzzzzzzzz

LOL :lol: :lol: :lol:

:hello:

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

antp

Super Administrateur
Champion des excuses bidons

juju_le_barbare a écrit a écrit :

J'ai créé un bouton avec :

Code :

procedure TForm1.Button1Click(Sender: TObject);
begin
SetSystemCursor (LoadCursor(application.handle, IDC_UPARROW),OCR_UP);
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

juju_le_barbare

Vous fiez pas aux apparences !

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

antp

Super Administrateur
Champion des excuses bidons

et 100 balles et un Mars ?

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

[SDF]Poire

Vive Grumly

antp a écrit a écrit :

et 100 balles et un Mars ?

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

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

juju_le_barbare

Vous fiez pas aux apparences !

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

antp

Super Administrateur
Champion des excuses bidons

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

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

[SDF]Poire

Vive Grumly

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 ?

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:

FORUM HardWare.fr

Programmation

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

Sujets relatifs
[Delphi/SQL] Inclure le contenu d'un Tedit dans une requete SQL ...	[C] Distinguer les boutons de la souris
[Delphi]c'est quoi la fonction pour completer une chaine?	[CSS / Javascript] changer une propriété css background avec ntscp
[Delphi] petage de plomb avec un Pchar	[Delphi] RichEdit, racourcit clavier et Menu !
[Delphi] couleur...	[delphi] pb avec les char et string
[JavaScript] Changer la valeur d'un champ hidden sur onClick	DivX Organizer en Delphi --> Beta Test SVP
Plus de sujets relatifs à : [Delphi] Changer le curseur de la souris, mais sur tout l'écran !

Page générée en 0.061 secondes