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

 Delphi Discussion :

Intercepter l'ajout d'une ligne dans un contrôle TRichEdit d'une autre fenêtre ?


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Par défaut Intercepter l'ajout d'une ligne dans un contrôle TRichEdit d'une autre fenêtre ?
    Bonjour,

    Savez-vous comment faire pour intercepter l'ajout d'une ligne dans un contrôle de type TRichEdit d'un autre programme ?

    Merci,
    ZiP

  2. #2
    Membre Expert Avatar de edam
    Homme Profil pro
    Développeur Delphi/c++/Omnis
    Inscrit en
    Décembre 2003
    Messages
    1 894
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Développeur Delphi/c++/Omnis
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Décembre 2003
    Messages : 1 894
    Par défaut
    Citation Envoyé par [ZiP] Voir le message
    Bonjour,

    Savez-vous comment faire pour intercepter l'ajout d'une ligne dans un contrôle de type TRichEdit d'un autre programme ?

    Merci,
    ZiP
    il y a au moins 2:
    -on utilisant les message depuis la fenêtre contenant le richedit (voir sendmesage),
    -ou en créant un événement que nous lui affectant l'événement voulut du richedit

  3. #3
    Membre éprouvé
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Par défaut
    Bonsoir,

    Mes recherches m'orientent vers l'utilisation d'un hook via les API suivantes :
    - SetWindowsHookEx avec WH_GETMESSAGE
    - CallNextHook

    Qu'en pensez-vous ?

    Merci,
    ZiP

  4. #4
    Membre éprouvé
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Par défaut
    J'ai fais ça :

    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
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
     
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
     
    type
      TMain = class(TForm)
        Memo1: TMemo;
        procedure FormDestroy(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Déclarations privées }
      public
        { Déclarations publiques }
      end;
     
    var
      Main: TMain;
      HookId: HHOOK;
     
    implementation
     
    {$R *.dfm}
     
    function HookGetMsgProc(nCode:Integer; wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall;
    begin
         if nCode = HC_ACTION then
         begin
     
         end;
         Result := CallNextHookEx(WH_GETMESSAGE, nCode, wParam, lParam);
    end;
     
    procedure TMain.FormCreate(Sender: TObject);
    begin
         HookId := SetWindowsHookEx(WH_GETMESSAGE, @HookGetMsgProc, HInstance, 0);
    end;
     
    procedure TMain.FormDestroy(Sender: TObject);
    begin
         UnhookWindowsHookEx(HookId);
    end;
     
    end.
    Le problème, c'est qu'il ne passe jamais dans ma fonction...

    ZiP

  5. #5
    Expert confirmé

    Avatar de Nono40
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Mai 2002
    Messages
    8 640
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2002
    Messages : 8 640
    Par défaut
    C'est normal, pour qu'un hook fonctionne sur les autres applis il doit être dans une dll (cf msdn) sinon tu reçois seulement les messages de ton application.

    J'ai appliqué cette méthode sur un hook clavier que tu peux adapter sur un hook message. Le principe sera exactement le même.

    http://nono40.developpez.com/sources/source0007/

    Le plus chiant c'est ensuite de partager les infos avec l'appli.

    Attention que le code sur un hookmessage doit toujours passer la main ou hook suivant. Le code ne doit non plus être long, sinon et bien il te restera le bouton "stop" de ton PC.
    Delphi :
    La F.A.Q. , 877 réponses à vos questions !
    264 sources à consulter/télécharger !

  6. #6
    Membre éprouvé
    Homme Profil pro
    Paramétreur de progiciels
    Inscrit en
    Octobre 2006
    Messages
    970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Paramétreur de progiciels

    Informations forums :
    Inscription : Octobre 2006
    Messages : 970
    Par défaut
    Merci pour cette précision !

    Je vais donc corriger en ce sens

    ZiP

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 07/04/2013, 23h56
  2. [TPW] Ajout d'une ligne dans un fichier texte après une position saisie
    Par Invité dans le forum Turbo Pascal
    Réponses: 1
    Dernier message: 19/12/2010, 11h27
  3. Recherche dans Grid et focus sur une ligne dans grid
    Par angelevil dans le forum Windows Forms
    Réponses: 1
    Dernier message: 29/05/2009, 00h37
  4. une action dans excel peut elle créer une ligne de code dans VBA?
    Par beebe dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 25/09/2008, 07h23
  5. Colorier une ligne dans un StringGrid et cacher une colonne
    Par Siguillaume dans le forum Langage
    Réponses: 8
    Dernier message: 02/07/2008, 20h24

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