Wer kann mir helfen, dass bei der OpenDialog-Komponente InitialDir tatsächlich das gewünschte Verzeichnis (tabVerz) öffnet.
Im folgenden Beispiel läuft alles korrekt bis zur Stelle
//******************************************************
//openDialog greift aufs LW A zu statt auf ‚tabVerz‘
//******************************************************
Das ganze Programm besteht aus einem Formular, einem Button + einer OpenDialog-Komponente
procedure TForm1.FormActivate(Sender: TObject);
begin
tabVerz:=ExtractFilePath(Application.ExeName)+‚Tabellen‘;
//tabVerz siehe PRIVATE - tabVerz:=‚d:\Delphi7\Testen\OpenDialog‘;
end;
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
with oDialog1 do begin
showMessage('1. '+tabVerz+#10+'InitialDir: '+initialDir);
Options := [ofNoChangeDir]; //Tabellenverzeichnis NICHT ändern
Filter := ‚Alles (*.*)|*.*‘;
initialDir:=‚A:‘; //