[求助]新手无助,请各位高手帮帮忙啊.................
如下程序段,我在教材上抄下来的:
procedure TForm1.Button1Click(Sender: TObject);
begin
if FontSet.Execute then
begin
label1.Font:=FontSet.Font;
end;
end;
编译提示: undeclared identifier: 'FontSet '
我知道是没有定义变量 'FontSet ',关键是不知道怎么定义,新手啊;
哦,对了,书上说这一段是调用字体设置对话框,这个变量应该是属于这个类的吧
还有颜色设置对话框也是一个情况
请大家帮忙啊,不尽感谢!
[解决办法]
从Dialog页上拖一个FontDialog控件放到Form上, 然后改名字为FontSet,再编译一下试试
[解决办法]
FontSet: TFontDialog;
要添加FontDialog控件的吧
