フォントの属性を指定した文字検索 (ID:37312)

名前

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

本文 procedure TForm1.Button1Click(Sender: TObject); var RequestSize:integer; NewString:string; begin if not InputQuery('Font','Size',NewString) then exit; RequestSize:=StrToIntDef(NewString,0); if RequestSize<1 then exit; で、RequestSize と RichEdit1.SelAttributes.Size を比べてみては？