掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Memo1.SelTextの初期化について (ID:48885)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
引き続きお世話になります。 Memo1.SelTextの初期化についての質問です。 下記のことを実現したいと思っております。 ①Memo1の任意の文字列を選択 ↓ ②Editに文字列をコピー ↓ ③②をGoogle検索 文字列が選択されていない状態の時は ④Editが空白の時は、Google(キーワードなしで)のみ起動 し、 もし、Editに文字列が入力をされていた（直接キーワード入力）場合は ③②をGoogle検索 ちなみに、①〜③は出来たのですが、 ④が出来ません。調べてみますと、Memo1.SelTextに直前まで選択していた値が 入力されているようです。 ①②Edit1.Text:=Memo1.SelText; ③SURL:='https://www.google.com/search?hl=ja&output=search&q=' + HTTPEncode(UTF8Encode(Edit1.Text)); ShellExecute(Application.Handle,'open',Pchar(SURL),NiL,NiL,SW_SHOW); ここまでは出来ました。 そこで、SelTextを初期化しようと思って、 Memo1.SelText:='';//←これで初期化しようとしましたが、これだと選択していないのに、直前の選択テキストが Memo1から消えてしまいます。 さらに、以下のコードに変更してみましたが、 Memo1.SetFocus;//←この状態でもMemo1.SelTextに文字列が入った状態になっているようです。 SelTextの初期化が可能ではないのでしたら、文字列が選択されている かどうかを判定する方法がありましたら教えていただけましたら助かります。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.