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.