Grafik von Clipbrd einfügen und vorher überprüfen ?

[eddy]

Delphi-Quellcode:

procedure TFInfoFinder.sb1Click(Sender: TObject);
const
  cfrage = 'Was ist in der Zwischenablage?';
begin
  if sb1.Tag = 0 then begin
    if Clipboard.HasFormat(CF_TEXT) then sb1.Caption:='Text'
    else if Clipboard.HasFormat(CF_BITMAP) then sb1.Caption:='Bitmap'
//    else if Clipboard.HasFormat(CF_METAFILE) then sb1.Caption:='MetaFile'
    else if Clipboard.HasFormat(CF_PICTURE) then sb1.Caption:='Bild'
    else if Clipboard.HasFormat(CF_COMPONENT) then sb1.Caption:='Objekt'
    else sb1.Caption:='nichts';
    sb1.Tag := 1;
  end
  else begin
    sb1.Caption := cfrage;
    sb1.Tag := 0;
  end;
{Die Funktion Hasformat prüft den Inhalt der Zwischenablage auf vorgegebene Formate (siehe Delphi-Hilfe)}
end;