Announcement

Collapse
No announcement yet.

Key-Press in einem Frame

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Key-Press in einem Frame

    Hallo,

    ich habe folgendes Problem.
    In einem Dielog je nach Anforderung des Nutzers wird ein Frame eingeblendet. Auf diesem Frame befinden sich natürlich mehrere Komonenten, Eingabefelder usw.
    Ich möchte das wenn ich die Return-Taste drücke der Eingabefokus zum nächsten Element für eine eingabe springt.
    Wenn ich die Elemente auf einem einfache Form/Dialog ohne Frame positioniere kann ich Prblemlos auf das Key-Press ereigniss reagieren. Bei einem Frame gibt es dieses Ereigniss nicht. Selbst wenn ich das Ereignis des Grunddialogs nutze passiert nichts. Wie könnte mann das Problem lösen.

    cu Jan

  • #2
    Hi Jan,<BR>
    KeyPreview des Forms is True?<BR><BR>
    Fran

    Comment


    • #3
      ich benutze eine abgewandelte Version von:<BR>
      <a href="http://www.undu.com/Articles/990820b.html">http://www.undu.com/Articles/990820b.html</a>
      <BR><BR>Fran

      Comment


      • #4
        Hallo,

        KeyPreview der Grundform ist True.

        cu Ja

        Comment


        • #5
          Also, beim Form kommt der KeyPress Event ja an.<BR>
          Warum behandelst du diesen nicht einfach dort?<BR>Poste doch mal deinen Code, wie du den Wechsel der Controls aufrufst.<BR><BR>
          Fran

          Comment


          • #6
            mit folgender Procedure funktioniert es bei mir:<PRE>
            procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
            begin
            if key = #13 then
            begin
            key := #0;
            Perform(WM_NEXTDLGCTL,0,0);
            end;
            end;</PRE&gt

            Comment


            • #7
              Hallo,

              konnte das Problem bereits selbst lösen. Danke für Eure Mühe.

              procedure TDetail_Form.FormKeyPress(Sender: TObject; var Key: Char);<BR>
              begin<BR>
              if Key = #13 then<BR>
              begin<BR>
              SelectNext(ActiveControl as TWinControl, True, True );<BR>
              Key := #0;<BR>
              end;<BR>
              end;<BR>

              cu Ja

              Comment

              Working...
              X