AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ComboBox Eingabe nur valider Zeichen

Ein Thema von ibp · begonnen am 11. Feb 2011 · letzter Beitrag vom 11. Feb 2011
Antwort Antwort
Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#1

AW: ComboBox Eingabe nur valider Zeichen

  Alt 11. Feb 2011, 11:54
Habe nun eine Lösung gefunden....

performantere Vorschläge werden gerne entgegengenommen!

Delphi-Quellcode:
procedure TForm1.CheckBoxKeyPress(Sender: TObject; var Key: Char);
var
 idx : integer;
 actPos : integer;
 ItemText : String;
 InputText : String;
begin
  if Ord(Key)>31 then
  begin
    actPos:= (Sender as TCombobox).SelStart + 1;

    if actPos>0 then
    begin
      InputText:=Copy((Sender as TCombobox).Text,1,actPos-1) + Key ;

      for idx:=0 to (Sender as TCombobox).Items.Count-1 do
      begin
        ItemText:=copy((Sender as TCombobox).Items.Strings[idx],1,actPos);
        if CompareText(ItemText,InputText)=0 then
        begin
          Exit;
        end;
      end;
      Key:=#0;
    end;
  end;
end;

danke an M_CLOSE, das war leider nicht die Lösung, da hier auch alle Steuerzeichen etc. blockiert werden und IndexOf den gesamten String vergleicht!

Selbst im OnKeyPress prüfen, ob der eingegebene String in der Liste ist.
Delphi-Quellcode:
if (sender as TComboBox).Items.IndexOf((Sender as TCombobox).text)+Key=-1 then
begin
  Key:=0;
end;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz