Delphi 不兼容类型：'；TFormStyle'；和'；tTefontStyle'；

我用Delphi2009编写了一段代码，并将我的CodeGear Delphi更新为XE2。它使用Delphi2009进行了完美的编译，但现在它没有！它给了我这个错误：

[DCC错误]不兼容的类型：“TFormStyle”和“TTeeFontStyle”！ 我尝试创建一个新的Vcl表单应用程序，并编写了生成此错误的命令：

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;

---

与“use”子句中的某些TeeChart模块存在名称冲突。您可以编写完全限定的标识符名称来解决此问题：

formstyle := Vcl.Forms.fsnormal;

---

注意，我删除了

“form1”。

限定词。通常，它在表单方法体中不是很有用，有时甚至有害（假设您有多个TForm1实例）

与某些TeeChart模块（位于“use”子句中）存在名称冲突。您可以编写完全限定的标识符名称来解决此问题：

formstyle := Vcl.Forms.fsnormal;

---

注意，我删除了

“form1”。

限定词。通常，它在表单方法体中不是很有用，有时甚至有害（假设您有多个TForm1实例）

除了MBo的答案之外，我认为最好使用：

Self.formstyle := Vcl.Forms.fsnormal;

---

当您有多个TForm1实例时，这将始终调整您当时使用的实例。

除了MBo的答案外，我认为最好使用：

Self.formstyle := Vcl.Forms.fsnormal;

---

当您有多个TForm1实例时，这将始终调整您当时使用的实例。

使用它来自的特定枚举类型限定该值：

Form1.FormStyle := TFormStyle.fsNormal;

甚至：

Form1.FormStyle := Vcl.Forms.TFormStyle.fsNormal;

---

使用该值来自的特定枚举类型限定该值：

Form1.FormStyle := TFormStyle.fsNormal;

甚至：

Form1.FormStyle := Vcl.Forms.TFormStyle.fsNormal;

---

为什么一个答案重复了答案中的旁白，而旁白实际上也回答了这个问题，获得了选票？Sertac，因为我没有足够的代表对之前的答案发表评论，这是我唯一的选择（编辑Mbo答案的尝试被拒绝）。我还看到MBo更新了他的答案。@RFerwerda-MBo的答案在被修改之前就已经有了这些信息。我不是问你为什么贴答案。我想知道为什么你的答案会获得选票，尽管它没有给已经存在的答案增加任何内容。我的问题不是特别针对你的。为什么一个答案重复了答案中的旁点，而旁点实际上也回答了问题，获得了选票？Sertac，因为我没有足够的代表对之前的答案发表评论这是我唯一的选择（编辑Mbo答案的尝试被拒绝）。我还看到MBo更新了他的答案。@RFerwerda-MBo的答案在被修改之前就已经有了这些信息。我不是问你为什么贴答案。我想知道为什么你的答案会获得选票，尽管它没有给已经存在的答案增加任何内容。我的问题不是特别针对你的。。