不兼容的类型:'TFormStyle'和'TTeeFontStyle'

Question

我用Delphi 2009编写了一个代码,并将我的CodeGear Delphi更新为XE2.它与Delphi 2009完美编译,但现在却没有!它给了我这个错误:

[DCC错误]不兼容的类型:'TFormStyle'和'TTeeFontStyle'!我尝试创建一个新的Vcl Forms Application并编写生成此错误的命令:

Form1.FormStyle := FsNormal;

它也编译得很完美,我不知道为什么会发生这种情况,虽然我相信我的语法没有问题,请帮助,谢谢.这是不编译的代码:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
begin
KeyPreview := True;
case Msg.message of
WM_KEYDOWN:
  if Msg.wParam = 27 then
  begin
    form1.Menu:=mainmenu1;
    fullscreen1.Checked:=false;
    form1.formstyle:=fsnormal;
    form1.BorderStyle:=bssizeable;
  end
  else
  if msg.wParam=VK_f5 then
  begin
    browser.Navigate(memo2.Text);
  end;
  end;
end;
end;

Answer 1

与某些TeeChart模块存在名称冲突,该模块位于"use"子句中.您可以编写完全限定的标识符名称来解决此问题:

formstyle := Vcl.Forms.fsnormal;

PS注意我"form1."也删除了限定符.通常它在表单方法体中不是很有用,有时甚至是有害的(假设你有多个TForm1实例)