Button beim drücken der ENTER-Taste ausführen

[Dejan Vu]

Aus dem Gedächtnis

Delphi-Quellcode:

procedure TForm1.FormKeyDown (Sender: TObject; var Key: Word);
begin
  If (Key = VK_RETURN) and (ActiveControl is TButton) Then Begin
    If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
      SelectNext(Sender as TWinControl,False,True)
    else
      SelectNext(Sender as TWinControl,True,True) ;
    Key := 0
  end;
end;

Wenn ein Button fokussiert ist und ENTER gedrückt wird, springt man zum nächsten Control (mit SHIFT zum vorherigen). Das ist nicht Windowskonform und wenn jemand anderes als dein Kunde diese Anwendung mit deinem Namen verknüpft, dann hast Du die Ar***karte, denn sowas macht man nicht.

Aber der Kunde ist König, also was will man machen.