OpenDialog erscheint nicht

[weinberger]

Hallo ich arbeite mit Delphi XE3
Folgendes Problem:
Ich habe ein Projekt von Delphi 2 auf Delphi XE3 portiert. In desem Projekt sind OpenDialoge. Diese erscheinen nicht mehr. Weder in der Entwicklungsumgebung noch Stand Alone.
Ich habe schon folgendes probiert:
- Forum und WWW durchsucht => keine Hilfe gefunden
- OpenDialoge entfernt und neu aus der Komponentenpalette von XE hinzugefügt => keine Abhilfe
- Ein kleines Testprojekt neu erstellt => OpenDialog funktioniert einwandfrei
- Projektoptionen durchsucht => nichts relevantes gefunden

Hat irgendwer einen Rat für mich

[Bernhard Geyer]

Hast du in deiner dpr-Datei auch eine Zeile

Application.Initialize;

stehen?

[weinberger]

Zitat von Bernhard Geyer:

Hast du in deiner dpr-Datei auch eine Zeile

Application.Initialize;

stehen?

Danke für die schnelle Antwort

Nein hab ich nicht. An welche stelle soll das bitte hin??

Das hab ich aber in der Test-dpr auch nicht drin stehen.

[himitsu]

Zitat von weinberger:

Nein hab ich nicht. An welche stelle soll das bitte hin??

Das hab ich aber in der Test-dpr auch nicht drin stehen.

Garnichs?

Erstell ein neues Projekt und schau dir die DPR an, so in etwa sollte es doch auch in der DPR deines eigentlichen Projektes aussehn.

[markus5766h]

Beispiel :

Code:

program Stromquelle01;

uses
  Forms,
  uMain in 'uMain.pas' {frmMain};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

[weinberger]

Zitat von himitsu:

Zitat von weinberger:

Nein hab ich nicht. An welche stelle soll das bitte hin??

Das hab ich aber in der Test-dpr auch nicht drin stehen.

Garnichs?

Erstell ein neues Projekt und schau dir die DPR an, so in etwa sollte es doch auch in der DPR deines eigentlichen Projektes aussehn.

Sorry mein Fehler. Falsche Datei erwischt steht schon drin

Code:

begin
  Application.Initialize;
  Application.Title := 'Tagesblatt';
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TAbwesenheit, Abwesenheit);
  Application.CreateForm(TGeplUrlAnz, GeplUrlAnz);
  Application.CreateForm(TGepl_Urlaub, Gepl_Urlaub);
  Application.CreateForm(TAufMich, AufMich);
  Application.CreateForm(TPasswordInputBox, PasswordInputBox);
  Application.CreateForm(TEintrag, Eintrag);
  Application.Run;
end.

[weinberger]

Jetzt dachte ich ich habs. Statt uses... Forms, hab ich auf uses... VCL.Forms, geändert. Hat auch nix gebracht

[himitsu]

Forms = VCL.Forms , wenn VCL in den Namespaces des Projekts definiert ist (ansonsten findet Delphi Forms nichts, da es nur eine vcl.forms.pas und eine fmx.forms.pas gibt)

Hast du einen vordefinierten InitialPath, oder gibst du einen FileName (inkl. Path) rein?
Wenn der Pfad nicht existiert, dann öffnet Windows den Dialog nicht (ohne Fehlermeldung ... das Programm denkt du hättest auf Abbrechen gedrückt)

[weinberger]

Zitat von himitsu:

Forms = VCL.Forms , wenn VCL in den Namespaces des Projekts definiert ist (ansonsten findet Delphi Forms nichts, da es nur eine vcl.forms.pas und eine fmx.forms.pas gibt)

Hast du einen vordefinierten InitialPath, oder gibst du einen FileName (inkl. Path) rein?
Wenn der Pfad nicht existiert, dann öffnet Windows den Dialog nicht (ohne Fehlermeldung ... das Programm denkt du hättest auf Abbrechen gedrückt)

Ich habe einen vordefinierten Pfad z.Bsp. D:\

[Freyr77]

Wenn ich das jetzt richtig gelesen habe... wieso setzt du die OpenDialoge nicht nochmal neu aufs Design und gibst ihnen die alten Namen? Ist dir damit nicht schneller geholfen?