Discussion :

[avogadro]

Bonjour,

mon problème est que j'ai créé un menu avec les fonction PopUpMenu, j'ai créé les lignes copier coller, mais je ne sais pas comment les rendre fonctionnel, c'est a dire le code qui va leur permettre de "copier" et "coller" les chaines de caractères comprises dans les "Memo1" et "Memo2".

Pouriez vous m'éclairer?
merci beaucoup !

[Merlin]

Le mieux consiste à utiliser un message windows qui donne l'ordre au contrôle ayant le focus d'effectuer le copier ou le coller. Comme ça s'il le gère ça marche bien, sinon rien ne se passe sans problème. Et de cette façon tu peux généraliser ton popup à tout contrôle...

pour copier: PostMessage(getFocus(), WM_COPY, 0, 0 );
pour coller, utiliser WM_PASTE

quant à getFocus() c'est une API qui retourne l'objet ayant le focus, avantage: cela marche à tous les coups quel que soit le contrôle (même un OCX).

En revanche, dans ton cas c'est le popup qui aura le focus, il faut donc remplacer getFocus par le handle du contrôle ayant déclenché le popup (cela s'obtient par l'objet popup menu).

[Graffito]

Bonjour,

Voilà qui répond peut-être à ta question :

Code :

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

1
2
3
4
5
6
7
8
9
10
uses Clipbrd;
...
//copie dans le presse papier tout le contenu du memo1
clipboard1.astext:=memo1.text ;  
...
//copie dans le prese papier le texte sélectionné dans le memo2
clipboard.astext:=memo2.seltext ;
...
//copie le contenu du presse papier dans le memo3
memo3.text:=clipboard.astext ;

[avogadro]

Perso j'ai mis ça, maintenant c'est nikel

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
procedure TForm1.Copier2Click(Sender: TObject);
begin
 
      Memo2.CopyToClipboard;
 
end;
 
procedure TForm1.Coller2Click(Sender: TObject);
begin
 
      Memo2.PasteFromClipboard;
 
end;
 
procedure TForm1.Copier1Click(Sender: TObject);
begin
 
         Memo1.CopyToClipboard;
 
end;
 
procedure TForm1.Coller1Click(Sender: TObject);
begin
 
     Memo1.PasteFromClipboard;
 
end;

Merci beacoup les gars !