Discussion :

[DOMBLOB]

Bonjour à tous

Je cherche à coller du texte préalablement chargé dans le presse papier dans un éditeur ouvert.

Je récupère le Handle de l'éditeur à la désactivation de mon appli lorsque je clicke dans l'éditeur puis je reviens sur mon appli pour coller mon texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.AppDeactivate(Sender: TObject);
Var ACursorPos: TPoint; Hwnd: THandle;
begin
         GetCursorPos(ACursorPos);
         Hwnd := WindowFRomPoint(ACursorPos);
end;
 
procedure TForm2.SpeedButton3Click(Sender: TObject);
  begin
     SendMessage(Hwnd, WM_Paste, 0, 0);
  end;

A priori le Handle est correctement récupéré mais le collage ne se fait pas.

Quelqu'un peut-il m'aider?

Merci.

[SergioMaster]

Bienvenue,

avant de répondre, il faudrait déjà savoir avec quelle version de Delphi (histoire de ne pas proposer quelque chose d'impossible).
ensuite cela va dépendre (pour les versions récentes) s'il s'agit d'un programme VCL ou FMX.

Mais de toute façon, la bonne recherche est "clipboard" exemple : docwiki+embarcadero+clipboard , l'unité Clipbrd existe depuis au moins D2010

[Charly910]

Bonjour,
je n'ai pas compris ta question. Tu veux coller dans ton appli un texte copié depuis un autre éditeur ?

Le presse papier de Windows est accessible dans toute application.

Tu peux utiliser PasteFromClipboard ?

A+
Charly

[Andnotor]

Il serait préférable de générer un Ctrl+V.

[DOMBLOB]

Versio de Delphi Rio 10.3

Je veux que le texte que j'ai copié dans le presse papier se colle dans l'éditeur dont j'ai récupéré le handle

[DOMBLOB]

Versio de Delphi Rio 10.3


Je veux que le texte que j'ai copié dans le presse papier se colle dans l'éditeur dont j'ai récupéré le handle

VCL

[Charly910]

Peut être que l'éditeur a des fenêtres enfants et qu'il faut utiliser ChildWindowFromPoint ?
A+
Charly

[DOMBLOB]

L'éditeur peut être un fichier Word, Excel, Notepad, Outlook, ...

[Andnotor]

Si on se réfère à ton code, AppDeactivate déclare une variable hwnd locale alors que SpeedButton3Click utilise une variable globale (ou appartenant à la fiche). Tel quel ça ne peut pas fonctionner.

Cela dit, il faut que l'éditeur cible utilise des contrôles "fenêtrés" (qui déclarent un handle), ce qui ne sera pas forcément le cas (un champ d'une page web par exemple), d'où ma remarque sur ctrl+V qui lui ne posera pas de problème.

[Charly910]

Dans Word, par exemple, il y a un Handle pour la fenêtre et un autre pour la zone d'édition

A+
Charly

[SergioMaster]

Il manque l'indication d'une destination : edit,memo,image, autre ?
Sinon, la fonction PasteFromClipboard est quand même idéale est simple https://docwiki.embarcadero.com/Code...board_(Delphi)
N.B? pour les images https://docwiki.embarcadero.com/RADS..._the_Clipboard

[DOMBLOB]

Il manque l'indication d'une destination : edit,memo,image, autre ?
Sinon, la fonction PasteFromClipboard est quand même idéale est simple https://docwiki.embarcadero.com/Code...board_(Delphi)
N.B? pour les images https://docwiki.embarcadero.com/RADS..._the_Clipboard

Je veus que mon coller envoie le texte dans l'éditeur à l'emplacement du curseur

[DOMBLOB]

La destination est une appli extérieure. Sinon ce serait simple

[rMist2024]

Simuler un Ctrl + V est la solution globale, WM_PASTE ne fonctionne pas dans tous les coups surtout qu'on sait pas la fenêtre correcte à laquelle le message doit être envoyé.

Pour Excel on peut faire
Sendmessage(handle, WM_COMMAND, 51, 0)
mais cette commande ne fonctionne pas avec Word

la seule contrainte de Crtl +V c'est qu'il faut activer la fenêtre avant d'effectuer Ctrl+V
ou créer la fiche avec l'option qu'elle ne s"active jamais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var
 Key: Word;
begin
  SetForegroundWindow(GetAncestor(Handle, GA_ROOT));
  key := Ord('V');
  keybd_event(VK_CONTROL, $1D, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(Key, $2F, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(Key, $2F, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
  keybd_event(VK_CONTROL, $1D, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

src:
https://stackoverflow.com/questions/...ybd-event-in-c

[DOMBLOB]

Si on se réfère à ton code, AppDeactivate déclare une variable hwnd locale alors que SpeedButton3Click utilise une variable globale (ou appartenant à la fiche). Tel quel ça ne peut pas fonctionner.

Cela dit, il faut que l'éditeur cible utilise des contrôles "fenêtrés" (qui déclarent un handle), ce qui ne sera pas forcément le cas (un champ d'une page web par exemple), d'où ma remarque sur ctrl+V qui lui ne posera pas de problème.

Bien sûr, je sais mais j"ai simplifié. Le Handle est dans le heap global bien sûr

[Charly910]

Bonjour,

avec ce code, j'arrive à récupérer le Handle de la zonz d'édition de Notepad (par MouseUp au dessus de Notepad), puis avec le bouton, je peux coller le contenu du presse papier dans Notepad :

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
49
50
51
52
53
54
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form3: TForm3;
  win:hwnd;
 
implementation
 
{$R *.dfm}
 
procedure TForm3.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pt:tpoint;
  resChild:HWND;
 
begin
  screen.Cursor:=crDefault;
  getcursorpos(pt);
  win:=windowfrompoint(pt);
  if win=0 then exit;
  Windows.ScreenToClient(win,pt);
  while(true) do begin
    resChild:=ChildWindowFromPoint(win,pt);  // on cherche si la fenetre possede un enfant
    if (resChild<>0) and (resChild<>win) then win:=resChild else break;
  end;
  edit1.Text:=inttostr(win);
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
 SendMessage(Win, WM_Paste, 0, 0);
end;
 
end.

A+
Charly

[DOMBLOB]

Si on se réfère à ton code, AppDeactivate déclare une variable hwnd locale alors que SpeedButton3Click utilise une variable globale (ou appartenant à la fiche). Tel quel ça ne peut pas fonctionner.

Cela dit, il faut que l'éditeur cible utilise des contrôles "fenêtrés" (qui déclarent un handle), ce qui ne sera pas forcément le cas (un champ d'une page web par exemple), d'où ma remarque sur ctrl+V qui lui ne posera pas de problème.

Bonsoir

Je suis assez d'accord avec toi.

Cependant j'ai essayé le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SendMessage(Hwnd, WM_KEYDOWN, VK_CONTROL, 1);
SendMessage(Hwnd, WM_KEYDOWN, MapVirtualKey(ord('v'), 0), 1);
SendMessage(Hwnd, WM_KEYUP, MapVirtualKey(ord('v'), 0), 1);
SendMessage(Hwnd, WM_KEYUP, VK_CONTROL, 1);

qui ne donne rien.

[tourlourou]

la seule contrainte de Crtl +V c'est qu'il faut activer la fenêtre avant d'effectuer Ctrl+V

L'éditeur de texte ciblé a-t-il bien le focus lors de l'envoi du Ctrl+V ?

[DOMBLOB]

Bonsoir

Je suis assez d'accord avec toi.

Cependant j'ai essayé le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SendMessage(Hwnd, WM_KEYDOWN, VK_CONTROL, 1);
SendMessage(Hwnd, WM_KEYDOWN, MapVirtualKey(ord('v'), 0), 1);
SendMessage(Hwnd, WM_KEYUP, MapVirtualKey(ord('v'), 0), 1);
SendMessage(Hwnd, WM_KEYUP, VK_CONTROL, 1);

qui ne donne rien.

Je vais essayer de préciser mon problème.

Mon application est li"e à une BDD qui stocke différents textes dans un DBRichEdit.
Je sors de l'application en cliquant sur une zone d'édition (Word, NotePas, Excel, ..) pour positionner le curseur. A cette occasion je récupère le Handle puis je focuse à nouveau sur mon appli et clique sur un bouton censé coller le contenu du DBRichEdit après le curseur. Mais rien ne fonctionne sauf si je fais un Ctrl_v dans l'éditeur.

Je ne vois pas où se situe mon pb.

[rMist2024]

L'éditeur de texte ciblé a-t-il bien le focus lors de l'envoi du Ctrl+V ?

Il faut l'activer avant de faire Ctrl+V

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 SetForegroundWindow(GetAncestor(Handle, GA_ROOT));

Sinon la forme de l'application doit être créée avec le style WS_EX_NOACTIVATE pour ne pas détenir le focus.

je focuse à nouveau sur mon appli et clique sur un bouton censé coller le contenu du DBRichEdit après le curseur

As-tu essayé WM_SETTEXT ce message remplace tout le texte de la fenêtre contrairement à WM_PASTE qui insert à l’endroit du curseur