[Delphi]クリップボード テキストのみ

 

※全てのDelphiで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません。

下記を実行すると

procedure TForm1.Button1Click(Sender: TObject);

//uses句に ClipBrd を追加して下さい
//フォーム上に TEdit, TLabel を配置して下さい

//●概要
//・Edit1 に適当な文字列の入力
//・Edit1 の中身を変えることで「クリップボードからの取得」を明確化
//・クリップボードから取得して Label1 にセット

begin

    //クリック前に Edit1に適当な文字列を入力して下さい。
    //クリップボードへ値をセットします。
    ClipBrd.Clipboard.AsText := Edit1.Text;

    Edit1.Text := '転送しました';

    //クリップボードから値を取得します
    Label1.Caption := ClipBrd.Clipboard.AsText;

end;

このようになります。

delphi-clipboard-text