Einzelnen Beitrag anzeigen

Assarbad
(Gast)

n/a Beiträge
 
#1

Zum Wegwerfen zu schade ... bei ENTER zum naechsten Control.

  Alt 15. Sep 2003, 19:25
Hier ein kleines Beispiel, wie man bei Druck von ENTER einfach zum naechsten Control im Form springt. Das Beispiel hab ich nur fuer jemanden in ca 3 Minuten geschrieben, weil er zuerst glaubte, es sei nur mit einem Hook machbar ...

Wichtig ist der Eventhandler:
Delphi-Quellcode:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
  VK_RETURN: // Entertaste
  Windows.SetFocus(GetNextDlgTabItem(self.Handle,
    self.ActiveControl.Handle, True));
  end;
end;
Den habe ich im Beispiel an alle EDITs gehangen ...
Angehängte Dateien
Dateityp: zip enterstatttab.zip (5,8 KB, 24x aufgerufen)
  Mit Zitat antworten Zitat