テキストの内容をカット＆ペースト

ここでは
①Edit1にあるテキストをクリップボードを経由してEdit2に貼り付けます。
②Edit1にあるテキストを切り取りクリップボードを経由してEdit2に貼り付けます。



■uses節にClipbrdを追加

■ソースは下記のようになります。

■①の処理
procedure TForm1.Button1Click(Sender: TObject);
begin
　//Edit1のテキストをクリップボードに
　Clipboard.AsText := Edit1.Text;
　//クリップボードのテキストを貼り付け
　Edit2.Text := Clipboard.AsText ;
　//クリップボードの内容を消去
　Clipboard.Clear;
end;



カット＆ペースト（Edit1の内容を消去しているだけです。（＾＾；）　
■②の処理
procedure TForm1.Button1Click(Sender: TObject);
begin
　//Edit1のテキストをクリップボードに
　Clipboard.AsText := Edit1.Text;
　//空にする
　Edit1.Text :=''；
　//クリップボードのテキストを貼り付け
　Edit2.Text := Clipboard.AsText ;
　//クリップボードの内容を消去
　Clipboard.Clear;
end;






Delphi　Tipsのページへ



ホーム