IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

Comment trouver le texte sous le curseur ?


Sujet :

Langage Delphi

  1. #1
    Membre à l'essai

    Inscrit en
    août 2004
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : août 2004
    Messages : 33
    Points : 22
    Points
    22
    Par défaut Comment trouver le texte sous le curseur ?
    Bonjour à tous...

    Alors, je vais commencer par vous donner mon bout de code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    tray:=WindowFRomPoint(Pt);
    child := windows.ChildWindowFromPoint(tray,point(x-rect.Left,y-rect.top));
    getwindowtext(child,dee,SizeOf(dee));
    le problème est simple, je veux pouvoir afficher le texte qui se trouve sous le curseur, mais ces quelques lignes assignent régulièrement rien à la variable dee...

    Je pense que je n'utilise pas la bonne méthode pour trouver le texte sous le curseur, d'autant plus que celle ci ne m'affiche pas non plus le contenus des barres de tâches, de menus, etc.

    Si quelqu'un sait donc comment faire pour afficher le texte qui se trouve sous le curseur MEME SI CELUI CI EST EN DEHORS DE L'APPLICATION DELPHI, qu'il m'aide par pitié ! Je craaaaaaque ! lol !

    Merci à tous !

    D.

  2. #2
    Membre régulier
    Profil pro
    Inscrit en
    octobre 2004
    Messages
    82
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2004
    Messages : 82
    Points : 85
    Points
    85
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    function TForm1.GetCaptionAtPoint(CrPos: TPoint): string;
    var
    textlength: Integer;
    Text: PChar;
    Handle: HWND;
    begin
    Result := 'Empty';
    Handle := WindowFromPoint(CrPos);
    if Handle = 0 then Exit;
    textlength := SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0);
    if textlength <> 0 then
    begin
    getmem(Text, textlength + 1);
    SendMessage(Handle, WM_GETTEXT, textlength + 1, Integer(Text));
    Result := Text;
    freemem(Text);
    end;
    end;
     
     
     
    procedure TForm1.Timer1Timer(Sender: TObject);
     
    var SourisPos: TPoint;
    begin
    GetCursorPos(SourisPos);
    Edit1.Text:=GetCaptionAtPoint(SourisPos);
    end;

  3. #3
    Membre à l'essai

    Inscrit en
    août 2004
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : août 2004
    Messages : 33
    Points : 22
    Points
    22
    Par défaut :-(
    Merci beaucoup mais... Ca marche pas !!!

    Ca me fait exactement la même chose mais à la place de rien mettre, ca retourne "empty"... ce qui semble logique !!!

    Je vais étudier cette solution mais apparement, ca marche pas... Les menus sont toujours considéré comme "empty", ainsi que le texte des icones sur le bureau... etc...

    Je précise que je tourne en XP pro.

    Merci.

    D.

Discussions similaires

  1. Réponses: 2
    Dernier message: 10/06/2008, 17h35
  2. Réponses: 1
    Dernier message: 26/05/2007, 18h23
  3. Réponses: 2
    Dernier message: 13/11/2006, 17h14
  4. Comment trouver le répertoire démarrage sous 98?
    Par PHILOSOPHE dans le forum API, COM et SDKs
    Réponses: 6
    Dernier message: 18/11/2003, 21h10
  5. Comment detecter un polygon sous le curseur
    Par FreshVic dans le forum OpenGL
    Réponses: 2
    Dernier message: 04/07/2003, 11h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo