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

[Luckner]

Hallo,

versuche seit geraumer Zeit eine Sprung von einem Button auf einen weiter zu Programmieren. Es klappt einfach nicht. Die Standartfunktionen sind aktive unf funktionieren auch. D.H. mit Tab einen Focus auf den nächsten Button. Meine Routine soll jedoch mit der Return-Taste auf den nächsten Button springen und auslösen.

Bsp.:

Delphi-Quellcode:

procedure TFrameArtikel.JvHTButtonAufRolleKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then JvHTButtonLeporelloClick(nil);
end;

Hierbei tut sich nichts.

Danke, Luckner

[himitsu]

Zitat:

passiert nichts

Was sagt der Debugger?



Verwende besser OnKeyDown und wenn du das Ereignis verarbeitest, dann solltest du danach das Key auf 0 setzen, um den nachfolgenden events bescheidzugeben, daß die nichts mehr machen sollen.

PS: VK_RETURN


Und JvHTButtonAufRolle besitzt auch den Fokus?

[Luckner]

Habe ich gerade ausprobiert.

procedure TFrameArtikel.JvHTButtonAufRolleKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key = VK_RETURN Then JvHTButtonLeporelloClick(nil);
key := 0;
end;

Keine Änderung. Mit der Tab-Taste springt der Focus von Button zum Button. Mit der Return-Taste wird auch OnClick ausgeführt. Als ob es irgendwo eine Standardeinstellung für die Buttons wäre.

[baumina]

Versuchs mal mit

Delphi-Quellcode:

JvHTButtonLeporello.Click;

statt nur das OnClickevent aufzurufen.

[DeddyH]

Ist es ja auch. Einen aktiven Button kannst Du mit der Leertaste oder mit Enter auslösen. Außerdem gibt es da noch die Default-Eigenschaft, die auch mit der Enter-Taste zu tun hat. Von daher ist Dein ganzes Vorhaben nicht ganz glücklich.

[baumina]

Achso, setze im OnClickEvent als erstes den Fokus auf den Button.

EDIT : Weil Button klicken nicht automatisch Button fokussieren ist.

[Jumpy]

Zitat:

Zitat von DeddyH (Beitrag 1258156)

Ist es ja auch. Einen aktiven Button kannst Du mit der Leertaste oder mit Enter auslösen. Außerdem gibt es da noch die Default-Eigenschaft, die auch mit der Enter-Taste zu tun hat. Von daher ist Dein ganzes Vorhaben nicht ganz glücklich.

Ich finde das auch unintuitiv. Ist der Fokus auf Button A und ich drücke die Enter-Taste, dann möchte ich auch, dass das entsprechende Ereignis von A ausgelöst wird. Das danach zusätzlich der Fokus auf Button B gesetzt wird kann man ja machen.
Aber hier klingt das jetzt so, als solle Ereignis A nicht ausgelöst werden, dafür Ereignis B direkt (denn das schein mir bei BClick(nil) alias JvHTButtonLeporelloClick(nil) die Intention zu sein)???

[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

[baumina]

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

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

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

Delphi-Quellcode:

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.

[Popov]

Zitat:

Zitat von chess (Beitrag 1258168)

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:

Zitat von Luckner (Beitrag 1258175)

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

[Luckner]

Hi Dejan Vu,
das mit dem activeControlls hatte ich bereits rausgenommen. Es rührt sich wirklich nichts. Ich möchte nur mit der Return-Taste von Button zu Button hüpfen und eine onClick-Routine des angesprungenes Buttons auslösen.

[DeddyH]

Dann schreib Dir doch zur Not einen lokalen Tastaturhook. Mich persönlich würde so ein merkwürdiges Programmverhalten allerdings fürchterlich nerven.

[Dejan Vu]

Zitat:

Zitat von Luckner (Beitrag 1258182)

Hi Dejan Vu,
das mit dem activeControlls hatte ich bereits rausgenommen. Es rührt sich wirklich nichts. Ich möchte nur mit der Return-Taste von Button zu Button hüpfen und eine onClick-Routine des angesprungenes Buttons auslösen.

Aber hüpfen sollte der Focus schon, nur clicken wird er nicht. Wieso auch, ist ja nicht programmiert :stupid:

Versuche es mal mit der Methode 'TForm.FindNextControl'.

Delphi-Quellcode:

Procedure TMyForm.FormKeyDown (Sender : TObject; Var Key : Word);
Var
  nextCtrl : TControl;

Begin
  if Key <> VK_RETURN Then exit;
  nextCtrl = FindControl(ActiveControl, True, True, False); // mit dem 3.Bool  herumprobieren
  if nextCtrl is TButton then begin
    ActiveControl := nextCtrl;
    TButton(nextCtrl).Click(nil);
  end
end;

So oder ähnlich sollte das funktionieren. Kann sein, das der Button erst geklickt wird und dann wechselt der Fokus. Du darfst aber auch selbst ein wenig herumprobieren. Ich geh nämlich jetzt nach hause.

EDIT: Sooo, klar, warum das nicht geht: Der Button klaut der Form das ENTER, selbst, wenn in der Form KeyPreview:=True gesetzt ist. Da müsste man über die 'WndProc' gehen, dort die WM_KEYDOWN-Message abfangen und dann entsprechend verarbeiten, das sollte funktionieren.