procedure TMainWnd.UpdateTabTexts(refresh: boolean = false); (略) for i := 0 to viewList.Count -1 do if (viewList.Items[i].thread <> nil) then begin if (viewList.Count = 1) or (TabControl.TabWidth > 0) then begin if ((TabControl.Tabs.Strings[i] = '') or refresh) then TabControl.Tabs.Strings[i] := Copy(AnsiReplaceText(HTML2String(viewList.Items[i].thread.title), '&', '&&'), 1, 4095); end else TabControl.Tabs.Strings[i] := AnsiReplaceText(TabString(HTML2String(viewList.Items[i].thread.title)), '&', '&&'); end; (略)