掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォントを指定した検索をするには？ (ID:37142)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すみません 20:42:18 の ComboBox と差し替えのつもりで書きました with RichEdit1 do がついて SelAttributes は TRichEdit の プロパティです procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin with RichEdit1 do begin for i:=0 to Length(RichEdit1.Lines.Text)-2 do begin SelStart:=i; SelLength:=1; case RadioGroup1.ItemIndex of 0:if fsBold in SelAttributes.Style then Break; 1:if fsItalic in SelAttributes.Style then Break; 2:if fsUnderline in SelAttributes.Style then Break; 3:if fsStrikeout in SelAttributes.Style then Break; end; end; SelStart:=i; SelLength:=1; SetFocus; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.