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

解決

ＢＥＡＴＬＥＳマニア  2007-06-28 11:56:02  No: 26870  IP: 192.*.*.*

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

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

編集 削除
邪  2007-06-28 13:23:39  No: 26871  IP: 192.*.*.*

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

uses節に"Clipbrd"を追加

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

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

編集 削除
orz  2007-06-28 14:42:23  No: 26872  IP: 192.*.*.*

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

編集 削除
ＢＥＡＴＬＥＳマニア  2007-06-29 00:49:39  No: 26873  IP: 192.*.*.*

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

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

編集 削除