更改Tab mid caption上的字体

Don*_*ams 0 delphi fonts caption

我正在使用Delphi 7.

我想在标签标题上指出与标签相关的页面有内容.如果页面上的dbgrid中有内容,我想跟随一个绕组的标题,用字母n表示,它显示为一个方框.因此,现在而不是标题为"Paient History"的标题,它将显示为"患者历史"+一个小小的填充框.

由于符号是字母'n',字体类型为wingding,我想更改字幕中间的字体类型,并添加字母n,从而在标题末尾添加一个小填充框.

Tabsheet.caption := 'Patient History ' + changefonttypetowinding + 'n'.
Run Code Online (Sandbox Code Playgroud)

可行?

Dav*_*nan 6

你在这里进入了所有者抽签的领域,一旦你考虑到主题,这并不是完全无足轻重的.如果你确实走了那条路,那么我就不会打扰Wingdings了,我只是画一个盒子TCanvas.FillRect.

就个人而言,我会查看Unicode Delphi并使用U + 2587(▇)或其中一位朋友.