フォーム読み込み中のエラー (ID:26418)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 1999年に作成したDelphiのプログラムをWindowsXPで起動させると起動時に以下のようなメッセージが表示されました。 クラス TTabControlEx が見つかりません。エラーを無視し て読み込みを続けますか？（このエラーを無視した場合、 コンポーネントやプロパティの値を失う場合があります） おそらく作成した年号から推測してWin98の1stエディションで作成されたものだと思われますが、WindowsXPで起動する際にエラーメッセージが表示されないようにするにはどうすればよいのでしょうか？ Delphiのバージョンは3.1です。 また、プログラムの先頭部分を以下に示します。 unit MainForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, Buttons, ToolWin, ComCtrls, Menus, ExtCtrls, CtrlsEx, KbtApl, Dialogs, FileCom; type TFMain = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; ToolBar1: TToolBar; Btn_Close: TSpeedButton; Btn_Back: TSpeedButton; Btn_Min: TSpeedButton; Btn_Config: TSpeedButton; Btn_About: TSpeedButton; PopupMenu1: TPopupMenu; Set_AplCfg: TMenuItem; TabCtrl: TTabControlEx; TabPanel: TPanel; AplBtn1: TBitBtn; AplBtn2: TBitBtn; AplBtn3: TBitBtn; AplBtn4: TBitBtn; AplBtn5: TBitBtn; AplBtn6: TBitBtn; AplBtn7: TBitBtn; AplBtn8: TBitBtn; AplBtn9: TBitBtn; AplBtn10: TBitBtn; AplBtn11: TBitBtn; AplBtn12: TBitBtn; AplBtn13: TBitBtn; AplBtn14: TBitBtn; AplBtn15: TBitBtn; AplBtn16: TBitBtn; AplBtn17: TBitBtn; AplBtn18: TBitBtn; AplBtn19: TBitBtn; AplBtn20: TBitBtn; N4: TMenuItem; MI_Move: TMenuItem; MI_Set: TMenuItem; Esc_Move: TMenuItem; S1: TMenuItem; N5: TMenuItem; L1: TMenuItem; Exit1: TMenuItem; AplBtn21: TBitBtn; AplBtn22: TBitBtn; AplBtn23: TBitBtn; AplBtn24: TBitBtn; AplBtn25: TBitBtn; AplBtn26: TBitBtn; AplBtn27: TBitBtn; AplBtn28: TBitBtn; MI_Copy: TMenuItem; procedure FormCreate(Sender: TObject); procedure Btn_CloseClick(Sender: TObject); procedure Btn_BackClick(Sender: TObject); procedure Btn_MinClick(Sender: TObject); procedure Btn_AboutClick(Sender: TObject); procedure Set_AplCfgClick(Sender: TObject); procedure AplBtnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure AplBtnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TabCtrlChange(Sender: TObject); procedure TabCtrlDrawTab(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); procedure AplBtnClick(Sender: TObject); procedure MI_OplClick(Sender: TObject); procedure MI_SetClick(Sender: TObject); procedure Btn_ConfigClick(Sender: TObject); procedure Esc_MoveClick(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); private { Private 宣言 } public { Public 宣言 } ClassDir : String; FactoryDir : String; PrgDir : String; OplMode : Integer; function TabSeting:Boolean; end;