Set Next Focus !?

[dor557]

Hallo zusammen. Eines ist Ja einfach und schönb in Delphi zu benutzen :

Delphi-Quellcode:

  If (Key = #13) Then
  begin
    // Mache irgendwas
    Key := #0;
  end;

Geht wenn er dann eine sache machen soll super. z.b.

Delphi-Quellcode:

Edit2.SetFocus;

Jetzt aber meine Frage. Es gibt ja so was schönes wie eine Tabulator Reihenfolge.
Diese kann man auch bearbeiten wärhend der Entwurfszeit.

Wie kann ich jetzt z.b. Die OnKeyPress Procedure verwenden um Automatisch zum Nächsten Edit Feld tzu springen so z.b. :

Delphi-Quellcode:

  TabOrder.Setfocus.next;

oder so....

Danke für die Hilfe.

gruss Sascha

[Luckie]

Ja gibt es: WM_NEXTDLGCTL.

[Dezipaitor]

Aus der Delphi Hilfe:

Zitat:

Die Methode FindNextControl gibt das dem angegebenen Steuerelement in der Tabulatorreihenfolge dieses Steuerelements folgende untergeordnete Steuerelement zurück.

Delphi-Syntax:

function FindNextControl(CurControl: TWinControl; GoForward, CheckTabStop, CheckParent: Boolean): TWinControl;

---

Kannst du bitte deine Texte ein zweites Mal durchlesen! Ist nur dann etwas einfacher zu lesen - auch noch um 2:00 morgens. :D
Dafür gibts ja die Vorschau.

[dor557]

Habe es nun mit der Folgenden Methode gelöst :

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If (Key = #13) Then
  begin
    Self.Perform(WM_NEXTDLGCTL, 0, 0);
    Key := #0;
  end;
end;

war wohl nicht schlecht der Hinweis. Danke

gruss Sascha