Discussion :

[Ludo_360]

bonjour,

Je développe une application qui se charge d'envoyer des caractères dans n'importe quelle fenetre( déterminée grâce à son handle). Seulement je voudrais maintenant copier un texte qui a été selectionné ( surligné), dans ce cas le handle ne suffit pas... Si a quelques conseils, il sont bienvenus...

merci


++

[ShaiLeTroll]

Toujours ton Histoire de Clavier Virtuel ?

Selectionné = Selection par la Souris
Surligné = avec une ligne en dessous comme dans un RichEdit

ce n'est pas pareil ...

Sinon voir le message EM_GETSELTEXT, avec le handle du Edit cela devrait fonctionné, voir comment fonctionne un RichEdit (ComCtrls.pas) pour la Gestion du texte sélectionné ...

[Ludo_360]

Eh oui toujours mon histoire de clavier, il faut qu'il fonctionne parfaitement...


tu dis

selectionné= sélection par la souris

Faire un copier/coller dans un TEDIT je sais faire, avec Clipboard, mais mon clavier permet d'écrire dans n'importe quelle fenetre ouverte ( notepad, google, application delphi...etc...).

Mais comment tu défini une selection faite par la souris?

Moi je récupère le handle de la fenetre grâce à la position de la souris, mais je ne vois pas comment savoit si un texte est selectionné?


C'est surement très con mais je vois pas trop...



merci a toi Shai

[ShaiLeTroll]

Tu veux récupérer le Texte Selectionné ... j'ignore à quel moment, mais suffit d'envoyer le Message EM_GETSELTEXT ... cherche dans ComCtrls.pas comment l'utiliser ... si cela renvoie nil ou chaine vide, il n'y pas de selection ...

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
 
function TCustomRichEdit.GetSelLength: Integer;
var
  CharRange: TCharRange;
begin
  SendMessage(Handle, EM_EXGETSEL, 0, Longint(@CharRange));
  Result := CharRange.cpMax - CharRange.cpMin;
end;
 
function TCustomRichEdit.GetSelText: string;
var
  Length: Integer;
begin
  SetLength(Result, GetSelLength + 1);
  Length := SendMessage(Handle, EM_GETSELTEXT, 0, Longint(PChar(Result)));
  SetLength(Result, Length);
end;

[Ludo_360]

Je suis en train d'essayer de réfléchir en suivant tes pistes, mais je ne suis pas sur de comprendre ( manque d'expérience en delphi ).
Tu conseilles d'utiliser des commandes réservée pour le RichEdit ( EM_GETSELTEXT) ... Une fenetre notepad peut être assimilée à un richedit? t une page google?

J'ai ouvert ComCtrls.pas, et j'ai trouvé la partie sur RichEdit, mais je ne comprends pas plus...

Enfin c'est surement une question de temps...

merci pour tes conseils Shai...
++

[ShaiLeTroll]

Effectivement, Notepad, ce n'est qu'un simple Edit, je n'ai jamais testé, et le RichEdit est le seul composant que je connaissais avec une Selection de Texte programmable, donc c'est pour cela que j'ai songé à ça !

et au lieu d'utiliser EM_EXGETSEL et EM_GETSELTEXT, faudrait utiliser EM_GETSEL et WM_GETTEXT (en en récupérant que la sélection) pour un Edit normal

[Ludo_360]

pour l'instant je copie dans toutes les fenetres si je récupère le handle et je réécris la copie dans la fenetre que je veux si j'ai le handle:

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
 
******************************************************************************)
// fonction appellée lorsque l'utilisateur se sert du raccourci clavier Ctrl+C
procedure Tform_Clavier.CopyText();
begin
   Sendmessage(Handle_Cible, WM_GETTEXT, 16(*BUF_SIZE*), integer(@buffer));
   Clipboard.Create;
   Clipboard.AsText:= buffer;
   Clipboard.Free;
end;
 
(******************************************************************************)
// fonction appellée lorsque l'utilisateur se sert du raccourci clavier Ctrl+V
procedure Tform_Clavier.CollerText();
var
   ii : integer;
begin
   edt_clipbrd.Clear;   // ici le edit sert à controler ce que l'on memorise
   Clipboard.Create;
   edt_clipbrd.Text:= Clipboard.AsText;
   for ii:= 0 to length(Clipboard.AsText) do begin
      Postmessage(Handle_Cible, WM_CHAR, (Clipboard.AsText[ii]),0);;
   end;
 
   Clipboard.Free;
end;

Mais comme tu as du le voir je copie toute la fenetre puisque le handle détermine toute la fenetre...

Mon appel de fonction est bon, l'utilisation du clipboard est ok... Mais il faut que je modifie la selection de la copie...

Je ne sais vraiment pas trop comment faire... J'utilise un gettext mais seltext ne marche pas....

je cherche... je cherche...

Merci

++