Moin,

ich bin gerade dabei ein Delphi Projekt von der Version Delphi 7 auf Delphi 2005 umzustellen. Ich bekomme schon beim öffnen des Projektes die folgende Fehlermeldung:

Formular, das sich selbst als Vorfahr-Formular hat, kann nicht geladen werden.

Öffne ich das Programm mit Delphi 7, dann funtioniert es ohne Probleme.

Ich habe leider das Projekt damls nicht aufgesetzt von daher kann ich mit der Fehlermeldung absolut nichts anfangen. Kann mir jemand ein Tipp geben, wo ich nach den Einstellungen suchen kann, bzw. was diese Meldung bedeutet?

thx
Snyderburn

Zeig mal die Klassendeklaration

Zitat von mkinzler:

Zeig mal die Klassendeklaration

Ich bin gerade nicht sicher, was die Klassendeklaration ist, aber ich denke, dass es die folgende sein müsste.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    Datenbank1: TMenuItem;
    UserDatenbankanzeigen1: TMenuItem;
    Antragstypenanzeigen1: TMenuItem;
    DBGrid1: TDBGrid;
    FilterGroupBox: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    FilterCombo: TComboBox;
    FromToRadio: TRadioButton;
    ExactRadio: TRadioButton;
    MinFilter: TEdit;
    ExactFilter: TEdit;
    MaxFilter: TEdit;
    FilterActive: TCheckBox;
    OnlyFinishedRadio: TRadioButton;
    OnlyOpenRadio: TRadioButton;
    SearchGroupBox: TGroupBox;
    Label3: TLabel;
    Label7: TLabel;
    SearchCombo: TComboBox;
    SearchField: TEdit;
    SearchButtons: TButton;
    Label4: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    UserName: TEdit;
    AntragName: TEdit;
    SubmitChangesButton: TButton;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBEdit1: TDBEdit;
    InDate: TDateTimePicker;
    ToDate: TDateTimePicker;
    FinishedDate: TDateTimePicker;
    PrioCombo: TComboBox;
    AufwandCombo: TComboBox;
    ItemDone2Button: TButton;
    UACheckBox: TCheckBox;
    SoftwareCheckBox: TCheckBox;
    CitrixCheckBox: TCheckBox;
    DBComboBox1: TDBComboBox;
    TypeGroupBox: TGroupBox;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    NewCitrixButton: TToolButton;
    NewSoftwareButton: TToolButton;
    NewUserButton: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Label16: TLabel;
    GroupBox1: TGroupBox;
    AllItemsRadio: TRadioButton;
    ShowUserButton: TToolButton;
    ShowDetailsButton: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Neu1: TMenuItem;
    UserAntrag1: TMenuItem;
    OverRadio: TRadioButton;
    Days_over: TSpinEdit;
    Label17: TLabel;
    ExcelFileerzeugen1: TMenuItem;
    SaveDialog1: TSaveDialog;
    Label18: TLabel;
    PDFShowButton: TBitBtn;
    PDFChangeButton: TBitBtn;
    MitDatenbankverbinden1: TMenuItem;
    Datenbanktrennen1: TMenuItem;
    StatusBar1: TStatusBar;
    CloseDetails: TBitBtn;
    DBComboBox2: TDBComboBox;
    BitBtn1: TBitBtn;
    PDFLink: TMemo;
    AntragDetails: TPanel;
    ToolButton3: TToolButton;
    ToolButton6: TToolButton;
    ToolButton8: TToolButton;
    ReportButton: TToolButton;
    ToolButton7: TToolButton;
    ToolButton10: TToolButton;
    ImageList2: TImageList;
    ImageList3: TImageList;
    Label19: TLabel;
    ErfasstEdit: TEdit;
    ExcelApplication1: TExcelApplication;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelWorkbook1: TExcelWorkbook;
    U1: TMenuItem;
    User1: TMenuItem;
    ListBox1: TListBox;
    StatusBar2: TStatusBar;
    PopupMenu1: TPopupMenu;
    Kopieren1: TMenuItem;
    sendMailButton: TButton;
    PageControl1: TPageControl;
    TabelleTab: TTabSheet;
    DetailsTab: TTabSheet;
    eMailTab: TTabSheet;
    eMailForm1: TeMailForm;
    Panel1: TPanel;
    NewItemTab: TTabSheet;
    Panel2: TPanel;
    RightsTab: TTabSheet;
    BerechtigungenForm1: TBerechtigungenForm;
    Panel3: TPanel;
    ItemFrame1: TItemFrame;
    UserTab: TTabSheet;
    Panel4: TPanel;
    UserForm1: TUserForm;
    AntragstypenTab: TTabSheet;
    Panel5: TPanel;
    AntragstypenForm1: TAntragstypenForm;
    procedure Beenden1Click(Sender: TObject);
    procedure NewUserButtonClick(Sender: TObject);
    procedure UserDatenbankanzeigen1Click(Sender: TObject);
    procedure FilterActiveClick(Sender: TObject);
    procedure SearchButtonsClick(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure ShowUserButtonClick(Sender: TObject);
    procedure CloseDetailsClick(Sender: TObject);
    procedure ShowDetailsButtonClick(Sender: TObject);
    procedure UACheckBoxClick(Sender: TObject);
    procedure ItemDoneButtonClick(Sender: TObject);
    procedure Antragstypenanzeigen1Click(Sender: TObject);
    procedure ExcelFileerzeugen1Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure PDFChangeButtonClick(Sender: TObject);
    procedure PDFShowButtonClick(Sender: TObject);
    procedure MitDatenbankverbinden1Click(Sender: TObject);
    procedure Datenbanktrennen1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SubmitChangesButtonClick(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure U1Click(Sender: TObject);
    procedure User1Click(Sender: TObject);
    procedure Kopieren1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure sendMailButtonClick(Sender: TObject);
    procedure ItemFrame1Button4Click(Sender: TObject);
    procedure ItemFrame1SubmitButtonClick(Sender: TObject);
    procedure ItemFrame1ASFromDBButtonClick(Sender: TObject);
    procedure ItemFrame1UserFromDBButtonClick(Sender: TObject);
    procedure ItemFrame1NewUserButton1Click(Sender: TObject);
    procedure ItemFrame1PDFLinkButtonClick(Sender: TObject);
    procedure ItemFrame1SpeedButton1Click(Sender: TObject);
    procedure ItemFrame1SpeedButton2Click(Sender: TObject);
    procedure ItemFrame1StandardsBoxClickCheck(Sender: TObject);
    procedure eMailForm1SendMailButtonClick(Sender: TObject);
    procedure eMailForm1Button1Click(Sender: TObject);
    procedure eMailForm1Button2Click(Sender: TObject);
    procedure ReportButtonClick(Sender: TObject);
  private
    { Private-Deklarationen }
    function StatistikAktualisieren(Typ,Status:Integer): Integer;
    function IsDate(str: string): Boolean;
    function Rights(account:string):Integer;
    function GetBearbeitungszeit(Typ:Integer):Double;
    procedure DetailsAktualisieren;
    procedure SendEmail;
  public
    { Public-Deklarationen }
    RightManagement : Integer;
    user : Array[0..127] of Char;
    procedure FussZeileEditieren;
    procedure MouseWheelHandler(var Message : TMessage); override;
    procedure StatistikZeileAktualisieren;
    procedure AntragQueryRenew;
  end;

var
  MainForm: TMainForm;

.MainForm ist eine Eigenschaft der TApplication-Klasse. Erweitere den Parameter bei der Erzeugung im Projekt