クリップボードの有無をチェックしたい

解決

ＢＥＡＴＬＥＳマニア 2007-06-28 20:56:02 No: 26870

RichEditやMemoコンポーネントで
クリップボードのテキストの有無をチェックするのは
どう記述すればいいでしょうか？
PastToClicpBoardやGetToClicpBoadはあるのですが、
コピーせずにデータの有無を確認したいのです。

よろしくお願いいたします。

邪 2007-06-28 22:23:39 No: 26871

ClipBoard変数のAsTextプロパティが空文字かどうか調べればいいと思います。

uses節に"Clipbrd"を追加

if Clipboard.AsText = '' then begin
ShowMessage('None');
end
else begin
Memo1.Text := Clipboard.AsText;
end;

こんなカンジでどうでしょう。

orz 2007-06-28 23:42:23 No: 26872

if Clipboard.HasFormat(CF_TEXT) then begin
//テキストあり
end
else begin
//テキストなし
end;

ＢＥＡＴＬＥＳマニア 2007-06-29 09:49:39 No: 26873

早速AsTextをヘルプ(F1)で見てみました。
こんなのがあったんですね。(^^)
邪さん、orzさんどうもありがとうございました。
早速プログラムを修正してみます。

流石プロですね!(^^)
どうもありがとうございました。