ComboBox per Code steuern

[Cool-Tuc]

Hallo alle,
drücke ich in einer gefüllten Combobox mit Autovervollständigung z.B. eine Zahl/Char springt diese automatisch auf den 1-sten vorkommenden Eintrag. Wie kann ich dieses "Drücker" per Code auslösen? Ich kann zwar combobox.text mit einer Zahl/Char setzen, aber dann passiert nichts; es wird zu keinem Eintrag gesprungen, es wird nur der eingegebene Char angezeigt...
Danke
Udo

[fliegermichl]

Das geht indem du ComboBox.ItemIndex entsprechend setzt.

[Niesi]

Hallo alle,
drücke ich in einer gefüllten Combobox mit Autovervollständigung z.B. eine Zahl/Char springt diese automatisch auf den 1-sten vorkommenden Eintrag. Wie kann ich dieses "Drücker" per Code auslösen? Ich kann zwar combobox.text mit einer Zahl/Char setzen, aber dann passiert nichts; es wird zu keinem Eintrag gesprungen, es wird nur der eingegebene Char angezeigt...
Danke
Udo

Code: Alles auswählen

 
unit Main;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Menus;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MyComboBox: TComboBox;
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  MyComboBox.Itemindex := 0;
end;
 
procedure TForm1.MenuItem3Click(Sender: TObject);
begin
  MyComboBox.ItemIndex := 1;
end;
 
procedure TForm1.MenuItem4Click(Sender: TObject);
begin
  MyComboBox.ItemIndex := 2;
end;
 
procedure TForm1.MenuItem6Click(Sender: TObject);
begin
  Close;
end;
 
end.  
 

[Cool-Tuc]

...aber ich weiss vorher nicht, wenn ich z.B. ein "u" virtuell "drücke" bei welchem ItemIndex das erste "u" vorkommt um dort hin zu springen...

[six1]

im onChange die Liste durchlaufen und wenn du einen Wert gefunden hast, den ItemIndex setzen...

[Cool-Tuc]

OK, so habe ich es jetzt erst einmal implementier...ich dachte man könne einfach combo.text mit einem zeichen setzen und die combo würde zum ersten vorkommenden Eintrag springen..

[fliegermichl]

OK, so habe ich es jetzt erst einmal implementier...ich dachte man könne einfach combo.text mit einem zeichen setzen und die combo würde zum ersten vorkommenden Eintrag springen..

Code: Alles auswählen

 
ComboBox.ItemIndex := ComboBox.Items.IndexOf(ComboBox.Text);