Mehrere Tasten in einer Procedure abfragen?

[mat72]

Hallo,
auch mit OnKeyDown und/oder OnKeyUp, bekomme ich nicht das gewünschte Ergebnis.
Ich habe eine Matrix von 8 Textfeldern, über die ich Zahlen eingebe. Mit Enter oder Tab oder linke Maustaste soll in das nächste Feld gesprungen werden.
Wenn ich nur Enter nehme, funktioniert es. Mit
Key=VK_TAB
Key=#9
geht es nicht.
Hat noch jemand eine Idee?
Danke für eure Hilfe.
Gruss
Matthias

[rd3]

OnKeyPress + KeyPreview = True

Delphi-Quellcode:

  if key = #13 then
  begin   //Enter key: TEdit, oder auch mehr...
    if (ActiveControl.ClassType = TEdit) then
    begin
      Key := #0;
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;

[mat72]

Danke für eure Hilfe.
Ich habe das ganze jetzt so gelöst.

Delphi-Quellcode:

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13)
    then
      Edit2.SetFocus;
end;

procedure TForm3.Edit1Exit(Sender: TObject);
begin
    try
       ol:=StrToFloat(Edit1.Text);
    except
          ShowMessage('Please enter only Numbers!');
          Edit1.Clear;
          Edit1.SetFocus;
    end;
end;

Gruß
Matthias

[DeddyH]

Du könntest auch gleich TryStrToFloat verwenden.

[himitsu]

Dem Detlef stimme ich vollkommen zu.
Beim Debuggen breitet soein sinnloser Try-Except-Missbrauch richtig viel Freude.

Zitat:

Edit1.Clear;

Ich hab mich bei nur einem einzigen Zeichen vertippt, was man schnell ändern könnte,
aber nun darf ich alles neu eingeben, nur weil jemand so nett war alles zu löschen?

[DeddyH]

Sehe ich auch so, SelectAll statt Clear wäre evtl. benutzerfreundlicher.