Donnez votre avis

Contenu du presse papier (clipboard)

Posez votre question
Comment savoir si le presse papier contient une image ou du texte ?

Avec ce code, si le presse papier contient une image elle est copiée dans un Timage, si c'est du texte le contenu est copié dans un mémo.


procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: THandle;
begin
  Clipboard.Open;
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    MyHandle:=Clipboard.GetAsHandle(CF_TEXT);
    Memo1.Lines.Add(StrPas(GlobalLock(MyHandle)));
    GlobalUnlock(MyHandle);
  end;
  if (Clipboard.HasFormat(CF_BITMAP)) or
    (Clipboard.HasFormat(CF_PICTURE)) then
    Image1.Picture.Assign(Clipboard);
  Clipboard.Close;
end;

Publié par yvessimon. Dernière mise à jour le 24 septembre 2013 à 11:44 par pijaku.

Ce document intitulé «  Contenu du presse papier (clipboard)  » issu de CodeS-SourceS (https://codes-sources.commentcamarche.net/) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Ajouter un commentaire

Commentaires

Commenter la réponse de hoby500