0

Delphi 2009でコードを書き、 CodeGear Delphi を XE2 に更新しました。Delphi 2009では完全にコンパイルされましたが、現在はそうではありません。代わりにこのエラーが表示されます：

[DCC エラー] 互換性のない型: 'TFormStyle' と 'TTeeFontStyle' ! 新しいVcl Forms アプリケーションを作成しようとしましたが、このエラーを生成するコマンドを書きました:

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;
4

3 に答える 3

1

MBoの回答に加えて、次を使用する方が良いと思います：

Self.formstyle := Vcl.Forms.fsnormal;

TForm1 のインスタンスが複数ある場合、これにより、その時点で使用しているインスタンスが常に調整されます。

于 2013-09-24T07:25:31.170 に答える
0

値が由来する特定の列挙型で値を修飾します。

Form1.FormStyle := TFormStyle.fsNormal;

あるいは：

Form1.FormStyle := Vcl.Forms.TFormStyle.fsNormal;
于 2013-09-24T18:18:21.427 に答える