Eigene Komponente TCustomControl den Focus erhalten

[Hobbycoder]

Hi,

ich habe mir eine Komponente erstellt, die auf TCustomPanel basiert. Wie kann ich es anstellen, dass die Komponente per MouseDown auch den Focus erhält. Mit Tab komme ich hin und kann KeyPress auswerten. Aber wenn ein anderes Control aktiv ist und ich meines anklicke, erhält es nicht automaisch den Focus.

[CCRDude]

Vielleicht klingt das naiv (kenne mich mit Komponentenentwicklung kaum aus), aber: was spricht dagegen, im MouseDown einfach SetFocus() aufzurufen?

[Hobbycoder]

Zitat:

Zitat von CCRDude (Beitrag 1416200)

Vielleicht klingt das naiv (kenne mich mit Komponentenentwicklung kaum aus), aber: was spricht dagegen, im MouseDown einfach SetFocus() aufzurufen?

Hatte ich eigentlich auch gedacht. Funktioniert nur leider nicht.

[dummzeuch]

Zitat:

Zitat von Hobbycoder (Beitrag 1416202)

Zitat:

Zitat von CCRDude (Beitrag 1416200)

Vielleicht klingt das naiv (kenne mich mit Komponentenentwicklung kaum aus), aber: was spricht dagegen, im MouseDown einfach SetFocus() aufzurufen?

Hatte ich eigentlich auch gedacht. Funktioniert nur leider nicht.

Bedeutet "funktioniert nicht", dass ein Fehler auftritt, oder dass nur der Fokus nicht gesetzt wird?

[HolgerX]

Hmm..

Könnte es sein, das es deshalb nicht geht, da ein Panel (CustomPanel) ein Container ist und selber eigentlich keinen (sichtbaren) Focus erhält, sondern diesen immer an ein darauf platziertes Control weiter reicht?

(Nur so eine Vermutung.. ;) )

[Hobbycoder]

Zitat:

Zitat von dummzeuch (Beitrag 1416205)

Zitat:

Zitat von Hobbycoder (Beitrag 1416202)

Zitat:

Zitat von CCRDude (Beitrag 1416200)

Vielleicht klingt das naiv (kenne mich mit Komponentenentwicklung kaum aus), aber: was spricht dagegen, im MouseDown einfach SetFocus() aufzurufen?

Hatte ich eigentlich auch gedacht. Funktioniert nur leider nicht.

Bedeutet "funktioniert nicht", dass ein Fehler auftritt, oder dass nur der Fokus nicht gesetzt wird?

Nein, keine Fehlermeldung. Einfach nur keinen Focus. D.h. Der Fokus bleibt auf eine andere Control.

Zitat:

Zitat von HolgerX (Beitrag 1416209)

Hmm..

Könnte es sein, das es deshalb nicht geht, da ein Panel (CustomPanel) ein Container ist und selber eigentlich keinen (sichtbaren) Focus erhält, sondern diesen immer an ein darauf platziertes Control weiter reicht?

(Nur so eine Vermutung.. ;) )

Das könnte natürlich sein. Wobei es ja von TWinControl abstammt. Und das sollte über diese Funktionalität verfügen.
Außerdem: Mit der Tab-Taste kann ich den Focus ja auf mein Control bringen. Ich möchte aber auch, dass es den Focus erhält, wenn ich es mit der Maus anklicke.

[HolgerX]

Hmm..

Zitat:

Zitat von Hobbycoder (Beitrag 1416211)

Zitat:

Zitat von HolgerX (Beitrag 1416209)

Hmm..

Könnte es sein, das es deshalb nicht geht, da ein Panel (CustomPanel) ein Container ist und selber eigentlich keinen (sichtbaren) Focus erhält, sondern diesen immer an ein darauf platziertes Control weiter reicht?

(Nur so eine Vermutung.. ;) )

Das könnte natürlich sein. Wobei es ja von TWinControl abstammt. Und das sollte über diese Funktionalität verfügen.
Außerdem: Mit der Tab-Taste kann ich den Focus ja auf mein Control bringen. Ich möchte aber auch, dass es den Focus erhält, wenn ich es mit der Maus anklicke.

Unter D6 kann ein Panel und dies ist ja einfach nur von CustomPanel abgeleitet keinen Focus bekommen, weder mit TAB noch mit Maus.
Es erhält immer nur ein darauf platziertes Control (Edit/Button..) den Focus, aber nie das Panel selber.

Wahrscheinlich wird im CustomPanel ein Flag gesetzt, welches ihm selber kein Focus gibt, sondern an ClientControls weiter reicht..

[Schokohase]

Man könnte ja nachschauen wie das bei anderen Controls funktioniert ... z.B. bei

Delphi-Quellcode:

TButton

Delphi-Quellcode:

procedure TButtonControl.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_LBUTTONDOWN, WM_LBUTTONDBLCLK:
      if not (csDesigning in ComponentState) and not Focused then
      begin
        FClicksDisabled := True;
        Winapi.Windows.SetFocus(Handle); // das setzt den Focus
        FClicksDisabled := False;
        if not Focused then Exit;
      end;
    CN_COMMAND:
      if FClicksDisabled then Exit;
  end;
  inherited WndProc(Message);
end;

[Hobbycoder]

Zitat:

Zitat von Schokohase (Beitrag 1416222)

Man könnte ja nachschauen wie das bei anderen Controls funktioniert ... z.B. bei

Delphi-Quellcode:

TButton

Delphi-Quellcode:

procedure TButtonControl.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_LBUTTONDOWN, WM_LBUTTONDBLCLK:
      if not (csDesigning in ComponentState) and not Focused then
      begin
        FClicksDisabled := True;
        Winapi.Windows.SetFocus(Handle); // das setzt den Focus
        FClicksDisabled := False;
        if not Focused then Exit;
      end;
    CN_COMMAND:
      if FClicksDisabled then Exit;
  end;
  inherited WndProc(Message);
end;

Danke, das scheint schon mal zu funktionieren. Beim Klick auf meine Komponente wird o.g. procedure ausgeführt. Beim erneuten KLick ebenfalls, doch nun ist Focused True.
Jetzt sollten alle KeyPress-Ereignisse auch an meine Komponente gehen (Form keyPreview = False).
Tun sie auch ;-) bis auf Pfeiltasten VK_Left, VK_Right, VK_Top und VK_Down. Diese aktivieren sofort das nächste bzw. vohergehende Control. Aber genau diese Tasten benötige.
Wie gesagt, wenn ich mit dem Tabulator zu meinem Control navigiere, kommen diese Tasten jedoch an.

[Schokohase]

Zitat:

Zitat von Hobbycoder (Beitrag 1416226)

Tun sie auch ;-) bis auf Pfeiltasten VK_Left, VK_Right, VK_Top und VK_Down. Diese aktivieren sofort das nächste bzw. vohergehende Control. Aber genau diese Tasten benötige.
Wie gesagt, wenn ich mit dem Tabulator zu meinem Control navigiere, kommen diese Tasten jedoch an.

Man könnte ja nachschauen wie das bei anderen Controls funktioniert ... (halt bei denen, wo es so funktioniert)

[EWeiss]

Zitat:

VK_Left, VK_Right, VK_Top und VK_Down

Wie das halt so ist.

Werden Messagen im eigenen Control NICHT implementiert\Behandelt! Nun dann tun sie auch nichts.
Baust du ein Auto ohne Bremsen dann kannst du es auch nicht anhalten.
Ist doch ganz einfach zu verstehen.

gruss

[Hobbycoder]

Zitat:

Zitat von Schokohase (Beitrag 1416228)

Man könnte ja nachschauen wie das bei anderen Controls funktioniert ... (halt bei denen, wo es so funktioniert)

Versuche ich ja. Bei einigen Problemen hat mir das in der Vergangenheit auch schon weitergeholfen, so dass ich die Fragen gar nicht erst hier stellen musste.
Hierbei ist jedoch nicht ganz so einfach, da manches über Windows-Botschaften passiert. Und somit nicht direkt aus dem Code auslesbar ist. Da ich da nicht unbedingt so viel Erfahrung habe, frage ich hier halt mal.

[EWeiss]

Zitat:

da manches über Windows-Botschaften passiert

Alles!

Behandle..

Delphi-Quellcode:

  WM_KEYFIRST         = $0100;
  {$EXTERNALSYM WM_KEYDOWN}
  WM_KEYDOWN          = $0100;
  {$EXTERNALSYM WM_KEYUP}
  WM_KEYUP            = $0101;
  {$EXTERNALSYM WM_CHAR}

und gut ist.

gruss

[Hobbycoder]

Zitat:

Zitat von EWeiss (Beitrag 1416230)

Zitat:

VK_Left, VK_Right, VK_Top und VK_Down

Wie das halt so ist.

Werden Messagen im eigenen Control NICHT implementiert\Behandelt! Nun dann tun sie auch nichts.
Baust du ein Auto ohne Bremsen dann kannst du es auch nicht anhalten.
Ist doch ganz einfach zu verstehen.

gruss

Ist mir bekannt.

Nur stellt sich mir die Frage, welche ich abfangen muss, damit ich die o.g. Tasten an meinem Control ankommen. WndProc, WMChar, WMKeyDown kommen nur an, wenn ich irgendwelche anderen Tasten drücke. Obwohl form.ActiveControl auf meinem Control steht.

[EWeiss]

Zitat:

Nur stellt sich mir die Frage, welche ich abfangen muss, damit ich die o.g. Tasten an meinem Control ankommen.

Nicht so einfach zu beantworten, sorry kenne dein Control nicht.

Ein Möglichkeit wäre dein Control bzw. das Panel zu Subclassen.
Dein Control muss WM_KEYDOWN und WM_KEYUP an alle Child Windows weiterreichen.


gruss

[Hobbycoder]

Habe die Lösung gefunden.

Delphi-Quellcode:

procedure TTPPlan2.WMGetDlgCode(var Message: TWMGetDlgCode);
begin
  inherited;
  Message.Result:=Message.Result or DLGC_WANTARROWS;
end;

Und schon kommen auch VK_LEFT, VK_RIGHT, VK_DOWN und VK_UP bei WMKeyDown an ;-)

Da wäre ich so im Leben nicht drauf gekommen. Aber eure Anregungen haben mir bei der Suche schon wesentlich weiter geholfen. Danke euch dafür.