Страница 91 из 127
Как скопировать текст из строки в Clipboard
// Напишите следующий код:
#include <clipbrd.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString s = "Hello, World !";
Clipboard()->AsText = s;
if (Clipboard()->HasFormat(CF_TEXT))
Edit1->Text = Clipboard()->AsText;
else
Application->MessageBox("The clipboard does not contain text.", NULL, MB_OK);
}