掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォントを指定した検索をするには？ (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; ベタなので一つ目を見つけたら疲れてやめてしまいますし、長いものではスピードも望めませんがとりあえずこんな感じです
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.