Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: TFileOpenDialog fürht zu kuriosem DBGrid-Verhalten

   
    by mariusbenz, 21. Jul 2016
  @ ConnorMcLeod: Hab es jetzt alles in die if-Abfrage gepackt. Hat zwar beim Abbrechen des OpenDialogs (noch) keine Fehler gemacht, aber sicher ist sicher.
  
  Das SetSQLAndExecute ist eigentlich nicht sonderlich spektakulär
  
  procedure SetSQLAndExecute(Que : TAdsQuery; SQL_Befehl : String);
  begin
  with Que do
  begin
  Close;
  SQL.Clear;
• Forum: Programmieren allgemein

  AW: TFileOpenDialog fürht zu kuriosem DBGrid-Verhalten

   
    by mariusbenz, 21. Jul 2016
  Danke ConnorMcLeod, die Funktion Locate war die, die meinem Arbeitskollegen nicht mehr eingefallen war, weshalb ich den Umweg über die Bookmarks gemacht habe. Sieht deutlich schöner aus mit dem Locate.
  
  
  procedure TfrmMain.BtnDateiZuPosClick(Sender: TObject);
  var sTemp : String;
  LetzteID : Integer;
  begin
  if Sender = TObject(BtnOrdnerZuPos) then FODDateiPos.Options:=
  ...
• Forum: Programmieren allgemein

  AW: TFileOpenDialog fürht zu kuriosem DBGrid-Verhalten

   
    by mariusbenz, 21. Jul 2016
  Als dieses Verhalten das erste Mal aufgetreten ist, sah die Prozedur noch folgendermaßen aus:
  
  
  procedure TfrmMain.BtnDateiZuPosClick(Sender: TObject);
  var sTemp : String;
  begin
  if Sender = TObject(BtnOrdnerZuPos) then FODDateiPos.Options:=
  else if Sender = TObject(BtnDateiZuPos) then FODDateiPos.Options:= ;
  // In DB schreiben
  if FODDateiPos.Execute then
• Forum: Programmieren allgemein

  AW: TFileOpenDialog fürht zu kuriosem DBGrid-Verhalten

   
    by mariusbenz, 20. Jul 2016
  Ich finde die Lösung mit dem Timer auch sehr unschön. Mir schien es nur so, dass das mit dem GotoBookmark nur klappt, wenn ich ihn aus einer komplett anderen Funktion her aufrufe(also alles was nicht direkt mit dem Button-click bzw den Query-Ereignissen zusammenhängt), weil das Grid sich GANZ am Ende irgendwie aktualisiert und dadurch auf den ersten Datensatz springt.
• Forum: Programmieren allgemein

  AW: TFileOpenDialog fürht zu kuriosem DBGrid-Verhalten

   
    by mariusbenz, 20. Jul 2016
  Das stand sowohl in der Prozedur selbst, als auch später im AfterRefresh. Da beides nicht den gewünschten Effekt erzielt hat, steht das jetzt in der Timer-Prozedur.
  
  
  procedure TfrmMain.TimerRefreshTimer(Sender: TObject);
  begin
  TimerRefresh.Enabled:= False;
  AdsQuePosition.GotoBookmark(Book);
  end;
• Forum: Programmieren allgemein

  TFileOpenDialog fürht zu kuriosem DBGrid-Verhalten

   
    by mariusbenz, 20. Jul 2016
  Vorab schon mal der Code-Abschnitt um den es geht:
  
  
  procedure TfrmMain.BtnDateiZuPosClick(Sender: TObject);
  var sTemp : String;
  begin
  if Sender = TObject(BtnOrdnerZuPos) then FODDateiPos.Options:=
  else if Sender = TObject(BtnDateiZuPos) then FODDateiPos.Options:= ;
  // In DB schreiben
  if FODDateiPos.Execute then