実行するとタスクバーに２つのタスクが表示されてしまう。

解決

杉 2006-11-12 09:09:59 No: 23878

プログラムを実行させるとタスクバーに二つのタスクが表示されてしまいます。どちらかを閉じるとプログラムは終了してしまいます。
ユニットの一つに下記のような記述だけのものがあります。これ自体はプログラム本体ではないのですが、このApplication.Title := 'TOEIC';が一つのタスクに表示されています。

program Youengplus;

uses
  Forms,
  YouEngFMplus in 'YouEngFMplus.PAS' {TangoCard},
  Splash in 'Splash.pas' {SplashWindow},
  About in 'About.pas' {AboutBox},
  About1 in 'About1.pas' {AboutBox1};

{$R *.RES}

begin

  Application.Title := 'TOEIC';
  Application.CreateForm(TTangoCard, TangoCard);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TAboutBox1, AboutBox1);
  Application.Run;

end.

なぜだかわかりません。よろしくお願いします。

うんと 2006-11-12 10:49:12 No: 23879

> これ自体はプログラム本体ではないのですが、この

これはプロジェクトファイルですね。これがプログラムの本体です。
あとのフォームは、ウィンドウズから見るとダイアログです。

> Application.Title := 'TOEIC';が一つのタスクに表示されています。

これが正常です。あとの一つは何ですか？

杉 2006-11-12 11:38:40 No: 23880

コメントありがとうございます。あとの一つですが、フォームというのでしょうか、そのフォームの上のバーに付けた名称がもう一つのタスクに付いて現れるのです。何が原因なのでしょうか。

杉 2006-11-12 12:19:15 No: 23881

うんとさん、ありがとうございます。

unit YouEngFMplus;

interface

uses
//Windows, DirectX, MMSystem, D3DUtils, DIB, //追加 directX

  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls, Menus, MPlayer, ComCtrls, FileCtrl,
  IniFiles,
  Buttons, DXDraws, DXClass, ShadoLbl;
type
  TTangoCard = class(TForm)
//    TTangoCard = class(TDXForm)

すぐ上の行↑をコメント行にすると直りました。
よくわからないのですが、とにかく長い間の課題が解決しました。
うんとさんのコメントが参考になりました。ありがとうございました。

杉 2006-11-12 20:13:18 No: 23882

解決のチェックすること忘れていました。無事解決しました。