Announcement

Collapse
No announcement yet.

Nächsten Focus im OnExit ermitteln

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

  • Nächsten Focus im OnExit ermitteln

    hallo zusammen,

    ich habe folgendes problem: ich muß bei verlassen eines eingabefeldes eine verarbeitung veranlassen sofern ich mich weiterhin in einem speziellen eingabebereich ( panel ) befinde, also der focus des nächsten controls nicht ausserhalb des panels liegt.

    kann ich im OnExit schon ermitteln wo der focus hin wandert.

    vielen dank im voraus

    andreas

  • #2
    Ich würde die WM_KillFocus Message abfangen und nicht OnExit benutzten.

    <PRE>
    procedure WMKillFocus(var Message: TWMSetFocus); message WM_KILLFOCUS;</PRE>

    Der Message Parameter enthält das Handle des Controls das als nächstes den Focus erhält ( Falls es ein entsprechendes Control gibt).

    Ral

    Comment


    • #3
      hallo Ralf,

      schon mal vielen dank für den hinweis. aber könntest du mir noch nen weiteren tip geben und verraten wie ich so was implementieren. wie fange ich die message ab? ist scheinbar zu hoch für mich.

      gruß

      Andrea

      Comment


      • #4
        Kann jetzt gerade kein vollständiges Codebeispiel liefern
        Aber grob skizziert sollte das wie folgt aussehen :

        1.Control ableiten
        2.Prozedur zum abfangen der Windowsmessage
        hinzufügen (siehe meinen vorherigen Beitrag).
        3.In der Prozedur den Handle in Message.FocusedWnd auswerten.
        Also zum Bsp.
        <PRE>
        var
        NextFocusedControl :TWinControl;
        begin
        if Message.FocusedWnd<> 0 then
        begin
        NextFocusedControl := FindControl(Message.FocusedWnd);
        // hier NextFocusedControl auswerten
        end;
        end;
        </PRE>

        Ral

        Comment


        • #5
          genauso hatte ich es mir auch schon erarbeitet. mein problem ist nun das ich in der routine zur messagebehandlung nicht auf das formurlar zugreifen kann. geht das überhaupt oder muß doch was anderes einfallen lassen?

          Andrea

          Comment


          • #6
            GetParentForm(Self) ????

            Ral

            Comment

            Working...
            X