Delphipage

Présentation

Le presse-papier permet la copie ou le collage d'un texte ou d'une image.
Pour cela, on utitlise les fonctions de l'unité Clipboard.

Pour utiliser le clipboard, il faut l'ajouter dans la partie uses pour avoir accès aux différentes fonctions.

Uses Clipbrd;

Copier une image

Pour notre premier exemple, on aura besoin du composants TImage.

procedure TForm1.Copier1Click(Sender: TObject);
begin
Clipboard.Assign(Image1.Picture);
end;

La méthode Assign copie toutes les propriétés d'un composant de série vers un autre.

Coller une image

procedure TForm1.Coller1Click(Sender: TObject);
begin
Image1.Picture.Assign(Clipboard);
end;

A noter qu'il n'existe pas de fonction pour Couper une image.
Il faut donc faire un Copier puis effacer le contenu de l'image.

ClipBoard avec un TImage	[ 01-04-2002 ]
Exemple de copier, couper et coller d'une image bitmap. Télécharger : [6 Ko] [ clipbrd.zip] Auteur : Yoann Site internet : http://delphipage.free.fr/

Copier du texte

Pour notre deuxième exemple, on aura besoin d'un composant TMemo.

procedure TForm1.Copier1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;

Coller du texte

procedure TForm1.Coller1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;

Couper du texte

procedure TForm1.Couper1Click(Sender: TObject);
begin
Memo1.CutToClipboard;
end;

Savoir si il y a du texte dans le presse-papier

procedure TForm1.Edition1Click(Sender: TObject);
begin
if Clipboard.HasFormat(CF_Text) then
Coller1.Enabled:=True;
end;

Dans cette exemple "Coller1" est un bouton du menu.
La fonction hasFormat indique si le presse-papiers contient des données dans un format particulier.

Voici un tableau avec les différentes valeurs possibles de la fonction HasFormat.

Valeur	Description
CF_Text	Texte contenant une combinaison CR-LF à la fin de chaque ligne.
CF_Bitmap	Image bitmap.
CF_MetaFilePict	Image métafichier.
CF_Picture	Objet de type TPicture.
CF_Component	Tout objet persistant.