Moin,
ich habe offensichtlich einen Denkfehler mit onKeyPress und dem Zeichen #08 (Back).
Ich verwende noc D5 und a gibt es keinen Autocomplete in Editfeldern, also ha ich mir was ausgedacht, was anundfürsiih klappt, tja bis auf eben...
Delphi-Quellcode:
procedure TMainForm.Such_Box_1KeyPress(Sender: TObject; var Key: Char);
var i, j, x : integer;
item : TListitem;
s : string;
begin
if Key = #08 then begin
if Such_Box_1.SelStart <> Length(Such_Box_1.Text) then begin
Such_Box_1.SelStart := Such_Box_1.SelStart -1;
Such_Box_1.SelLength := Length(Such_Box_1.Text)- Such_Box_1.SelStart ;
Such_Box_1.SelText;
Such_Box_1.ClearSelection;
end;
end;
s := ansilowercase( copy (Such_Box_1.Text, 0, Such_Box_1.SelStart ) + key);
if Key = #08 then s := ansilowercase( copy (Such_Box_1.Text, 0, Such_Box_1.SelStart )) else
s := ansilowercase( copy (Such_Box_1.Text, 0, Such_Box_1.SelStart ) + key);
x := length(s) ;
trim(s); // enthält noch #08 Zeichen!
if s <> '' then
for i := 0 to SuchListe_C.count -1 do begin
if Ansipos(s, ansilowercase(SuchListe_C.strings[i])) = 1 then begin
Such_Box_1.SelectAll;
Such_Box_1.Clear;
Such_Box_1.Text := Suchen_LV.Items[i].SubItems[1] ;
Such_Box_1.SelStart := x ; // Suchstring incl Taste
Key := #08; // Muß, sonst doppeltes Zeichen
Suchen_LV.Selected := Suchen_LV.Items[i];
item := Suchen_LV.items[i];
Item.MakeVisible(true);
Suchen_LV.hideselection := false;
break;
end;
end;
end;
procedure TMainForm.Such_Box_1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Such_Box_1.setfocus;
// Such_Box_1.SelLength := Length(Such_Box_1.Text)- Such_Box_1.SelStart +1 ; // org
Such_Box_1.SelLength := Length(Such_Box_1.Text)- Such_Box_1.SelStart ;
Such_Box_1.SelText;
end;
Problem:
User tippt Buchstabe, Liste wird geprüft, Eintrag liegt vor und Edit.text wird umgeschrieben, ab Cursor bleibt es markiert.
Ist aber der Cursor an letzter Stelle (weil Eintrag nicht länger ist) und User drückt #08 (Back-Taste) dann werden direkt 2 Zeichen gekillt, oder aber, wenn ich
versuche #08 abzufanen (if Key =/<> #08) findet er die Listeneinträge nicht, weil der Suchstring Zeichen #08 noch drankleben hat.
Liste:
Affaire
Affe
Affekt
Affen
Habe ich Affen stehen, und lösche das letzte Zeichen (#08) springt die Routine auf 'Affaire', statt auf Affe und blockiert #08, weil die gekoppelte Suchroutine 'Affaire' findet.
Wo liegt mein Denkfehler?
Wann wird Key #08 Delphiintern wirklich umgesetzt - vorher - hinterher?
Danke