フォントを指定した検索をするには？ (ID:37139)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 レスつかないようなので簡単な例を 起動時フォント名を読み込んだ ComboBox を置きます （Style = csDropDownList で） procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Items.AddStrings(Screen.Fonts); end; そのフォント名を見つける方法 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; if SelAttributes.Name=ComboBox1.Text then Break; end; SelStart:=i; SelLength:=1; SetFocus; end; end; ベタなので一つ目を見つけたら疲れてやめてしまいますし、長いものではスピードも望めませんがとりあえずこんな感じです