掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
クリップボードの監視でテキストを取得すると「アクセスが拒否されました」と表示される (ID：150586)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00023.html //ｸﾘｯﾌﾟﾎﾞｰﾄﾞのﾃﾞｰﾀが書き変えられた時の処理 procedure TForm1.WmDrawClipboard(var msg: TWmDrawClipboard); var Tmp:string; begin //次のｳｨﾝﾄﾞｳに同じﾒｯｾｰｼﾞを送る SendMessage(hNext, WM_DRAWCLIPBOARD, 0, 0); //ｸﾘｯﾌﾟﾎﾞｰﾄﾞにﾃｷｽﾄﾃﾞｰﾀがあれば取得する。 if Clipboard.HasFormat(CF_TEXT) then Tmp:= ClipBoard.AsText else Exit; //ﾘｽﾄﾎﾞｯｸｽに未登録のﾃﾞｰﾀであれば新規に登録する。 with ListBox1.Items do if IndexOf(Tmp)=-1 then if Count= 0 then Add(Tmp) else Insert(0,Tmp); end; //ｸﾘｯﾌﾟﾎﾞｰﾄﾞﾋﾞｭｰﾜﾁｪｲﾝが変更された時の処理 procedure TForm1.WmChangeCBChain(var mes: TWmChangeCBChain); begin //次のｳｨﾝﾄﾞｳが削除された場合は、その次のｳｨﾝﾄﾞｳのﾊﾝﾄﾞﾙを取得し直す。 if mes.Remove = hNext then hNext:= mes.Next; //パット見 ここが無いかな //次のｳｨﾝﾄﾞｳに同じﾒｯｾｰｼﾞを送る SendMessage(hNext, WM_CHANGECBCHAIN, mes.Remove, mes.Next); mes.Result:= 0; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.