小编Dr.*_*erg的帖子

我如何在TFontDialog中为彩色盒添加一些值？或者请告诉我有关可以选择自定义颜色的字体的组件？我使用的是Delphi 7.

谢谢.

我找到了一些方法...但是当itemIndex = 0时颜色框发生变化时我怎么能显示TColorDialog？

 procedure TForm1.FontDialog1Show(Sender: TObject);
const
 IDCOLORCMB = $473;
 SMyColorName: PChar = 'clMoneyGreen';
 CMyColor: TColor = clMoneyGreen;
begin
 SendDlgItemMessage(FontDialog1.Handle, IDCOLORCMB, CB_INSERTSTRING, 0,
 Integer(SMyColorName));
 SendDlgItemMessage(FontDialog1.Handle, IDCOLORCMB, CB_SETITEMDATA, 0,
   ColorToRGB(CMyColor));
end;