InputBox + InputQuery Verzögerungen

[siles]

Zitat von Luckie:

Wie sieht denn der Code davor aus?

Hi Michael.

Also davor steht eigentlich gar kein Code.

Hier ein vollständiges Beispiel:

Delphi-Quellcode:

procedure TFrmMain.RenameCategory(sender: TObject);
var
sNewCategoryName: String;
begin
  InputQuery('Kategorie unbenennen', 'Neuer Name für Kategorie eingeben', sNewCategoryName);
  if Length(sNewCategoryName) > 1 then begin
    try
      dmdb.adocDb.Execute('update category set cat_name = ' +QuotedStr(sNewCategoryName)+ ' where cat_id = ' + IntToStr(dmdb.tblCategory.FieldByName('cat_id').AsInteger));
    finally
      ReloadCategories(sender);
    end;
  end;
end;

@DDCool:
Stimmt, das war nur ein Beispiel aus dem Kopf, im richtigen Code hab ich die Anführungszeichen natürlich.