Opendialog wird in IDE nicht angezeigt

[himitsu]

Zitat von ede57:

Gibt es vielleicht unterschiede wenn man ein Formular mal mit D2010 und dann mit DXE
bearbeitet ??

Nee, eigentlich nicht.

Das Einzige, wo ich weiß, daß die dahinterliegende WinAPI einen Bug hat (schon seit vielen vielen Jahren) das ist,
wenn man bei Filename vor dem Aufruf einen ungültigen Pfad angegeben hat, dann wird der Dialog nicht angezeigt und es gibt auch keine Fehlermaldung.

[ede57]

Zitat von himitsu:

Zitat von ede57:

Gibt es vielleicht unterschiede wenn man ein Formular mal mit D2010 und dann mit DXE
bearbeitet ??

Nee, eigentlich nicht.

Das Einzige, wo ich weiß, daß die dahinterliegende WinAPI einen Bug hat (schon seit vielen vielen Jahren) das ist,
wenn man bei Filename vor dem Aufruf einen ungültigen Pfad angegeben hat, dann wird der Dialog nicht angezeigt und es gibt auch keine Fehlermaldung.

Das kann ja nicht sein. Ausserhalb der IDE läuft alles einwandfrei. Auch wenn ich ein komplett neues
Project erzeuge, funktioniert alles, auc innerhalb der IDE

[ConnorMcLeod]

Verstehe beinahe ... da würde ich mal auf den ersten Blick vermuten, dass opdlg_DxfOpen nicht erzeugt ist, oder ExtractFilePath ein Riesenproblem hat.

Ist der Pfad zur EXE verschieden bei IDE/ausserhalb?
Wird die Prozedur überhaupt aufgerufen?
Gibt es zwei verschiedene Datei-öffnen-Prozeduren? ( => diese hier versagt, aber die andere tut dann)
Ist der OpenDialog created?
Versuche vllt ein try-except mit Fehlermeldung(en).
Versuche vllt, alle Logik zu entfernen, bis nur noch *Datei öffnen* überbleibt.
Bau Log-Meldungen ein.

Pffuuhhh. Jetzt fällt mir spontan mal nix mehr ein

[turboPASCAL]

Zitat von ConnorMcLeod:

Pffuuhhh. Jetzt fällt mir spontan mal nix mehr ein

Einfach mal debuggen. Breakpoints setzen...

[ConnorMcLeod]

Ist ausserhalb der IDE schwierig ...

[rollstuhlfahrer]

Doch: Exzessives Logging (nach jeder Zeile 1x Logging aufrufen und alle fehlercodes nach außen führen (auch GetLastError).

Bernhard

[ConnorMcLeod]

Siehe: bau LogMeldungen ein ...

Eine Idee hab ich noch: OllyDbg

[ede57]

Danke für die vielen Tips.

habe das Problem wohl gelöst??.

Habe .dProj Datei (nachdem ich diese gesichert hatte) gelöscht.
Beim öffnen des Projectes über die .dpr wurde die .dproj neu erstellt.
Dann funktionierte alles wieder.

Wenn ich die .dproj datei aber wieder austausche,funktioniert nichts mehr.

Also lag der fehler wohl in der .dproj Datei.

[ConnorMcLeod]

Danke für die Rückmeldung, das werde ich künftig auch bedenken

Spannend wäre es jetzt noch, herauszufinden, welcher Eintrag in der .dproj zuständig war. Die .dproj ist ja im XML-Format. Da könnte man der Reihe nach die Einträge entfernen, bis das Phänomen nicht mehr auftritt und damit hat man den Schuldigen.

[Flinx]

Hallo,
ich habe eure Mails mit Interesse gelesen.
Mir widderfähr gerade etwas ähnliches.
Open-und Save Dialoge werden in der IDE nicht mehr ausgeführt.
In der fertigen Applikation allerdings schon !?

Nach der Instalation einer anderen Komponente ( SynEdit ) ist mir
dieses Verhalten aufgefallen. Die Komponenten habe ich wieder deinstaliert aber leider ohne Erfolg bezüglich der Open/Save Dialoge.
Ich vermute, dass irgend welche Zeiger bzw UmgebungsVariablen der IDE nicht mehr stimmen !???
Habe aber leider keine Ahnung wie ich dem Problem zu Leibe rücken soll.
Im vorigen Beitrag wurde was von intensiven Debuggen gesagt. Was meint das und wie macht man das ?

Anbei ein einfach VCL Applikation die in der IDE den Open Dialog
in beiden Varianten ignoriert, als Anwendung gestartet aber das tut
was man erwartet.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenDialog2: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
//
// Zwei einfache Varianten einen Dialog aufzurufen
//
procedure TForm1.Button1Click(Sender: TObject);
var  openDialog : TOpenDialog;
begin
     openDialog := TOpenDialog.Create(self);

     if openDialog.Execute then
     begin
       ShowMessage(openDialog.FileName + ' selektiert !');
     end;
     openDialog.Free;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin

  if OpenDialog2.Execute then
  begin
     ShowMessage(OpenDialog2.FileName + ' selektiert !');
  end;

end;

end.