Discussion :

[Revan777]

Bonjour,
j'aimerai intégrer dans une application les fonctions Windows Copier/Coller.
En cherchant dans l'aide Builder, j'ai vu qu'il fallait utiliser un objet TCustomEdit mais je ne le trouve pas dans les objets proposés dans la barre des tâches. Quelqu'un peut-il me dire comment intégrer ces fonctions ? merci.

[Djob]

TCustomEdit est le composant de base de TEdit,
qui est une simple Boite d'edition : tu ne trouveras que TEdit dans la palette
...l'autre composant servant à créer des composants personnalisés de type EditBox....
... ça n'a pas grand chose a voir avec le copier/coller

regarde plutot du cote de la classe TClipboard ....

[Revan777]

TCustomEdit possède pourtant les fonctions membres CopyToClipboard et PasteFromClipboard ? A quoi servent-elles alors ?

[Djob]

à copier coller bien sûr mais juste pour le contenu d'une boite d'edition comme TEdit...il ya aussi ces methode dans TCustomMemo et bien d'autre

comme TEdit descend de TCustomEdit (heritage )
on peut faire si on a Edit1 ( etant une TEdit)

Code :

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

Edit1->CopyToClipboard();

et on peut consulter le clipoard via TClipboard ....

tu trouves ces methodes dans TCustomEdit aussi bien que dans TCustomMemo et d'autre , pour te permettre de couper /copier/ coller le texte qu'ils contiennent.... ce n'est pas pour autant qu'il faut un TCustomEdit pour faire en general du Copier/Coller ....

[Revan777]

Ok j'ai compris mais comment je peux faire alors pour Copier le texte selectionné dans un TEdit (ça peut être n'importe quel Edit de la fiche) ?
J'accède à la fonction Copier dans mon menu Edition->Copier.
Pareil pour la fonction Coller.
Y a moyen de savoir dans quel Edit est placé le curseur de la souris ?

[Djob]

oui .

par exemple , on a dans le menu principal les items copier , coller.
voici une façon parmi d'autres de faire ( celle qui me vient à l'esprit en ce moment ) :

dans le code de l'evenement click de l'item copier :
on va chercher le composant actif dans la fiche (Form1)
selon que c'est un edit ou un memo on en copie le texte selectionné.

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
#include <vcl\Clipbrd.hpp>
 
void __fastcall TForm1::Copier1Click(TObject *Sender)
{
     // on trouve le control actif
     TWinControl * Ctrl = this->ActiveControl;
 
     // on prend le nom de ce composant
     String ComponentName = Ctrl->Name;
 
     // on cherche ce composant dans la fiche
     TComponent * compnt = this->FindComponent(ComponentName);
 
     // on enregistre le nom de la classe ( TEdit...)
     String ComponentClassName =  compnt->ClassName();
 
     if( ComponentClassName=="TEdit")     //copie le texte selectionné
     {
        TEdit *  Edit = (TEdit *)compnt;
        Edit->CopyToClipboard();    //copie dans le Clipoboard
     }
     if(ComponentClassName=="TMemo")
     {
        TMemo *  Memo = (TMemo *)compnt;
        Clipboard()->Clear();    //on efface le contenu du clipboard
        Memo->CopyToClipboard(); //copie le texte selectionné
     }
}

pour coller même chose sauf qu'on utilise PasteFromClipboard()..


Par Contre si on veut tout le contenu ( pas seulement le texte selectionné ) il faut passer par le Clipboard:

et remplacer par exemple :

Code :

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

 Edit->CopyToClipboard();

par

Code :

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

Clipboard()->SetTextBuf(Edit->Text.c_str());

voila

bonne continuation.
Djob.

[Revan777]

Merci bien je devrais m'en sortir avec ça