Hallo Markus, hat ich auch gedacht, funktioniert aber nicht.
Hier mein Code:
Delphi-Quellcode:
procedure TOptionenFrm.dedtSicherungspfadPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
Var Dir : string;
begin
if (dmMain.ibqryOptionen.State <> dsEdit) then
dmMain.ibqryOptionen.Edit;
SelectDirectory('Einen Ordner zum Speichern wählen.', '', Dir, [sdShowEdit, sdNewFolder, sdShowShares, sdNewUI]);
dmMain.ibqryOptionen.FieldByName('SICHERUNGSPFAD').AsString := Dir;
end;
Hallo CodeZwerg,
werde ich morgen mal probieren, berichte dann.