Auswahl eines ComboBox-Elements per ENTER/durch das System

[qiLy4n]

Hab schon gemerkt und behoben. Wert bleibt trdm auf -1

[baumina]

Wie wärs mit OnClick?

[qiLy4n]

Nein, leider nicht. Hatte es schon ausprobiert, aber es ergibt an sich auch wenig Sinn, wenn es in diesem Zusammenhang (wo ich doch per ENTER auswählen können will) genutzt würde.

Ich hatte eine Idee für ein Work-Around mit meinen Mitteln:

Code:

if Key=13 //müsste Enter sein
then do
if ComboBox1.Text:='x' then ComboBox1.Itemindex:=0 else
 if ComboBox1.Text:='y' then ComboBox1.Itemindex:=1 else ... etc etc

Wäre zwar haufenweise Schreibarbeit, aber ich sehe mit meinem Können momentan keine andere Lösung.
Die Sache dabei ist auch, dass ich es schon so versucht hatte, darauf aber die Antwort kam, dass Boolean expected wäre (bei jeder einzelnen Zeile)...
Kann mir das wer erklären bzw meinen Fehler beheben (möglichst simpel)?

[himitsu]

Zitat:

if ComboBox1.Text:='x' then

Zuweisung oder Vergleich?

Delphi-Quellcode:

if Key = Char(VK_RETURN) then begin 
  i := ComboBox1.Items.IndexOf(ComboBox1.Text);
  if i >= 0 then
    ComboBox1.ItemIndex := i;
end;

bzw.

Delphi-Quellcode:

if Key = Char(VK_RETURN) then
  ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(ComboBox1.Text);

Schreibarbeit? Die CB kennt doch ihre Einträge, also fragt man sie einfach.

[baumina]

*war mal wieder zu spät*

[qiLy4n]

Hi, danke für diese - wie immer (seit 13 Jahren) - schnelle Antwort.
Hätte ich gewusst, dass man das so abfragen kann, hätte ich es vllt auch so aufgeschrieben

Eine Sache gibt es noch: ich kenn mich mit KeyDown nicht aus und in den Nachrichten erhalte ich den Hinweis:

Zitat:

unit1.pas(81,28) Error: Incompatible types: got "Char" expected "LongWord"

... bei diesem Code:

Code:

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: word;
  Shift: TShiftState);
begin
  if Key = Char(VK_RETURN) then begin
  i := ComboBox1.Items.IndexOf(ComboBox1.Text);
  if i >= 0 then
    ComboBox1.ItemIndex := i;
  end;
  end;

Was ist da das Problem?

[baumina]

Lass einfach die Umwandlung in Char weg if Key = VK_RETURN then

[qiLy4n]

Danke, wieder so eine Sache von der ich gar nicht wusste, dass man sie machen darf.

Werd ich also so umsetzten.
Just in case: Warum gibt es denn beim Doppelklicken auf das Ereignis im Objektinspektor eine Prozedur und offensichtlich - da ich den Code ja von himitsu hab - noch eine ähnliche mit einer anderen Variablen?
Ist für das Programm nicht mehr wichtig btw

[mkinzler]

Der Paramter key ist schon ein Integer

if Key = VK_RETURN then begin

[qiLy4n]

Wieso Integer, es doch um Word und Char?