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

[Luckner]

Habe ich jetzt auch die Buttons focusiert, leider keine Änderung.
Problem ist, dass der Kunde von Button zu Button mit der Return-Taste springen möchte (er ist kein Maus-Fan). Beim Klick auf diese Buttons (mit der Maus funktioniert es ja) erscheinen spezifische Editfelder. Dann mit der Leer-Taste würde er auf ein entsprechendes Feld springen. Und das Funktioniert wieder gut mit if key = #35 then Editfel1.setfocus.
Könnte man nicht auf die reaktion vom Druck auf die Return-Taste die Tab-Taste simulieren?

[chess]

Keine Ahnung ob dir das hilft:
http://www.youtube.com/watch?v=tHVLJL6lI40

[himitsu]

Bei uns wird auch mit Return weitergesprungen und das ebenfalls seit Jahrzehnten.(im Nummernblock gibt es nunmal kein Tab)

Allerdings wird das hier global im KeyDown+KeyPreview der Form behandelt.

[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.

[chess]

Wie würdest du das machen, bzw. was gehört da hin? Ich kann mit dem Tab gedudel nicht viel anfangen, ich brauche in Anwendugen ein einfaches 'Return'.

[Popov]

Zitat von chess:

Wie würdest du das machen, bzw. was gehört da hin? Ich kann mit dem Tab gedudel nicht viel anfangen, ich brauche in Anwendugen ein einfaches 'Return'.

Kleiner Tipp: guck dir in der Hilfe an was es mit dem Tab gedudel auf sich hat.

[Luckner]

Hallo Dejan Vu,

leider auch hier nichts. mit Editfeldern funktioniert die Return-Taste wunderbar, mit den Buttons bsi jetzt nicht.

[Dejan Vu]

Zitat von Luckner:

leider auch hier nichts. mit Editfeldern funktioniert die Return-Taste wunderbar, mit den Buttons bsi jetzt nicht.

Was. Funktioniert. Nicht? Und was willst Du genau erreichen? Das man mit der RETURN-Taste von Feld zu Feld hüpft? Dann nimm das 'and (ActiveControl is TButton)' raus. Ansonsten müsstest Du wirklich mal genau sagen, wie Du das haben willst.

Bisher (aber nur überflogen) habe ich gedacht, Du sollst beim ENTER zum nächsten Button springen. Und das sollte der Code machen (ungetestet, hab kein Delphi hier).

[Popov]

Also ich habe das zwar noch nie bei Buttons angewendet, aber bei Edits springe ich so zum nächsten Feld:

Delphi-Quellcode:

function NextDlgCtl(AForm: TForm; var Key: Char): Boolean;
begin
  Result := Key = Chr(VK_RETURN);

  if Result then
  begin
    AForm.Perform(WM_NEXTDLGCTL, 0, 0);
    Key := #0;
  end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  NextDlgCtl(Self, Key);
end;

Mit Edits kein Problem, bei Buttons klappt das nicht so ohne weiteres. Allgemein funktioniert das direkt mit Leertaste, wie (ich glaube) DeddyH es geschrieben hat. Das kann man leicht lösen mit einer Eigenschaft von TButton:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Default := True;
end;

//EDIT:

Ups, kleiner Fehler, bzw. Korrektur. Default := True führt ein OnClick beim Button aus, d. h. die Funktion wird nicht über OnKeyPress aufgerufen, sondern über OnClick.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Key: Char;
begin
  Key := #13;
  NextDlgCtl(Self, Key);
end;

Bei Edit Feldern kommt die Funktion in OnKeyPress rein. Bein Button, falls Default := True ist, in OnClick.

//Edit Ende

Es gibt übrigens auch FindNextControl , mit dem man den nächsten Control in der Reihe finden kann. Dann einfach dem den Fokus geben. Nur falls das oben nicht klappt.

[baumina]

Du wirst dich wohl von Buttons verabschieden müssen, denn für die Buttons heißt ENTER oder Leertaste drücken = klicke mich.