Als dieses Verhalten das erste Mal aufgetreten ist, sah die Prozedur noch folgendermaßen aus:
Code:
procedure TfrmMain.BtnDateiZuPosClick(Sender: TObject);
var sTemp : String;
begin
if Sender = TObject(BtnOrdnerZuPos) then FODDateiPos.Options:= [fdoPickFolders]
else if Sender = TObject(BtnDateiZuPos) then FODDateiPos.Options:= [];
// In
DB schreiben
if FODDateiPos.Execute then
begin
sTemp:= FODDateiPos.FileName;
SetSQLAndExecute(AdsQryMFA, 'UPDATE RLS_Detail ' +
'SET Datei = ' + QuotedStr(sTemp) + ' ' +
'WHERE ID = ' + AdsQuePosition.FieldByName('ID').AsString);
end;
end;
Die Bookmarks waren nur der Versuch, diesen Fehler zu kompensieren.
Und auch da war es schon so, dass nach dem FileOpenDialog mit PickFolders der Cursor am gleichen Datensatz stehen geblieben ist,er aber ohne PickFolders auf den ersten Datensatz zurückgesprungen ist, und zwar
nachdem die Prozedur beendet war(zumindest scheint es so).