掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Memo1.SelTextの初期化について (ID：48887)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
KONNOYAさん 書込みありがとうございます。 Edit1.Textは、Memo.SelTextから代入されるために選択が解除されて いないとNULLにならないので、 下記で実現は出来ると思ったのですが、SelTextの選択の解除が 出来ずに困っているということです。 SetFocusだけでは解除できないようでSelTextの解除はどのように 行うのでしょうか？ If Memo1.SelText='' then begin SURL:='https://www.google.com/search?hl=ja&output=search&q='; end else begin Edit1.Text:=Memo1.SelText; SURL:='https://www.google.com/search?hl=ja&output=search&q=' + HTTPEncode(UTF8Encode(Edit1.Text)); Memo1.SetFocus; end; ShellExecute(Application.Handle,'open',Pchar(SURL),NiL,NiL,SW_SHOW); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.