Tut mir Leid, das kann ich hier (XP SP3) nicht nachvollziehen. Ich mache nichts anderes als
Delphi-Quellcode:
procedure TfrmAppendFile.btnCarrierFileClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
edtCarrierFile.Text := OpenDialog1.FileName;
end;
end;
und
Delphi-Quellcode:
procedure TfrmAppendFile.EditChange(Sender: Tobject);
begin
btnAppend.Enabled := (FileExists(edtCarrierFile.Text)) and (FileExists(edtTrailerFile.Text));
btnExtract.Enabled := (FileExists(edtCarrierFile.Text)) and (DirectoryExists(edtDestFoler.Text));
btnRemove.Enabled := FileExists(edtCarrierFile.Text);
end;