フォントを指定した検索をするには？ (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;