DBGrid im editor einer zelle selstart und sellength

[slai]

Hallo zusammen

Bin wieder einmal mit dem DBGrid am rumspielen, jetzt möchte ich wenn ein neuer Eintrag in einer column gemacht wird, eine
art autovervollständigung implementieren, das heist alle vorherigen Einträge werden per sql abgefragt und der oberste match
angezeigt.

Das funktioniert auch bisher, das problem ist, das ich bei einem TWinControl kein selStart und selLength habe, sodass man auch normal weiterschreiben kann.
Kann mir da jemand helfen wie man das lösen könnte?

Onkeyup methode des editors der zelle

Code: Alles auswählen

procedure TFrmFibu.DBGEditorKeyUP(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   tempquery : TZQuery;
   stempString : String;
begin
 if TWinControl(Sender).Caption <> '' then begin
   stempString:= TWinControl(Sender).Caption;
   tempquery := TZQuery.Create(nil);
   tempquery.Connection := DBDataMod.ZCDB;
   tempquery.SQL.Clear;
   tempquery.SQL.Add('Select FIRST 1 SBUCHUNGSTEXT From BU_FIBU_BUTRANSAKTIONEN where LOWER(SBUCHUNGSTEXT) like '''+LowerCase(stempString)+'%''');
   tempquery.Open;
   TWinControl(Sender).Caption:=tempquery.FieldByName('SBUCHUNGSTEXT').AsString;
   //Hier müsste sel start und sel length des textes stehen.
   tempquery.Close;
   tempquery.Free;
 end;
end;

[DiBo33]

Has du mal versucht statt nach TWinControl nach TDBEdit oder TEdit zu casten, dann hättest du die benötigten Eigenschaften.

[theo]

Bei StringGrid müsste es so gehen, ich weiss aber nicht ob das bei DBGrid auch klappt:

TStringCellEditor(TStringGrid(Sender).Editor).SelStart:=1;
TStringCellEditor(TStringGrid(Sender).Editor).SelLength:=0;

[slai]

Danke für die Tipps,

Mit dem casting zu TEdit funktionierts hervorragend. Manchmal versucht man die einfachsten dinge nicht