Eigene Komponente TCustomControl den Focus erhalten

[HolgerX]

Hmm..

Zitat von Hobbycoder:

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

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 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 von Schokohase:

Man könnte ja nachschauen wie das bei anderen Controls funktioniert ... z.B. bei 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 von Hobbycoder:

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 von 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

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]

Zitat von Schokohase:

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