CodeS-SourceS
Rechercher un code, un tuto, une réponse

Contenu du presse papier (clipboard)

Novembre 2017

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.
Ce document intitulé «  Contenu du presse papier (clipboard)  » issu de CodeS-SourceS (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.
Faire un zip pour poster votre code source sur delphifr...
Formatez vos chaines de caractères grâce à la fonction format