掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TRichEdit(RichEdit 4.1) で URL を Shift+End or Shift+Home した時の動作 (ID:150962)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
RichEdit1.EnableURLs := False では正常に動作する RichEdit1.EnableURLs := False にしても URL は解除されない (テキスト書き込むと URL は消える) RichEdit1.EnableURLs := True にしても選択エリアは変更しない var X,Y,LI: Integer; SS: Integer; begin if (Key = VK_HOME) and (Shift = [ssShift]) then begin x := RichEdit1.CaretPos.X; y := RichEdit1.CaretPos.Y; li := RichEdit1.Perform(EM_LINEINDEX, UINT(-1), 0); SS := RichEdit1.SelStart; RichEdit1.EnableURLs := False; RichEdit1.Lines[Y] := RichEdit1.Lines[Y]; RichEdit1.SelStart := SS; RichEdit1.SelLength := 0 - (RichEdit1.SelStart - li); RichEdit1.EnableURLs := True; Key := 0; end else if (Key = VK_END) and (Shift = [ssShift]) then begin x := RichEdit1.CaretPos.X; y := RichEdit1.CaretPos.Y; li := RichEdit1.Perform(EM_LINEINDEX, UINT(-1), 0); SS := RichEdit1.SelStart; RichEdit1.EnableURLs := False; RichEdit1.Lines[Y] := RichEdit1.Lines[Y]; RichEdit1.SelStart := SS; RichEdit1.SelStart := li + x; RichEdit1.SelLength := Length(RichEdit1.Lines.Strings[y]) - x; RichEdit1.EnableURLs := True; Key := 0; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.