#include <Clipbrd.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Clipboard()->HasFormat(CF_TEXT))
Label1->Caption = "W schowku
jest tekst";
else if (Clipboard()->HasFormat(CF_BITMAP))
Label1->Caption = "W schowku
jest bitmapa";
else if (Clipboard()->HasFormat(CF_PICTURE))
Label1->Caption = "W schowku
jest obiekt typu TPicture";
else
Label1->Caption = "W schowku
jest coś innego";
}
|