lästiges beepen abstellen ??

[Christian Seehase]

Moin Zusammen,

ich schlag mal vor:

GetNextDlgTabItem

Hier im KeyDown Event eines Edit Feldes angewendet, und zwar so, dass ich nur eine Routine für alle Edits des Formualares brauche.

Code:

[b]procedure[/b] TfrmLanguage.edTitleKeyDown(Sender: TObject; [b]var[/b] Key: Word; Shift: TShiftState);
[b]begin[/b]
  [b]if[/b] (Key = VK_RETURN)[b]then[/b]
  [b]begin[/b]
    windows.SetFocus(GetNextDlgTabItem(self.Handle,TWinControl(Sender).Handle,false));
  [b]end[/b];
[b]end[/b];