AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Eigene Komponente TCustomControl den Focus erhalten
Thema durchsuchen
Ansicht
Themen-Optionen

Eigene Komponente TCustomControl den Focus erhalten

Ein Thema von Hobbycoder · begonnen am 20. Okt 2018 · letzter Beitrag vom 21. Okt 2018
Antwort Antwort
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
989 Beiträge
 
Delphi 6 Professional
 
#1

AW: Eigene Komponente TCustomControl den Focus erhalten

  Alt 21. Okt 2018, 06:43
Hmm..

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..
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#2

AW: Eigene Komponente TCustomControl den Focus erhalten

  Alt 21. Okt 2018, 08:23
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;
  Mit Zitat antworten Zitat
Hobbycoder

Registriert seit: 22. Feb 2017
1.017 Beiträge
 
#3

AW: Eigene Komponente TCustomControl den Focus erhalten

  Alt 21. Okt 2018, 09:05
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.
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#4

AW: Eigene Komponente TCustomControl den Focus erhalten

  Alt 21. Okt 2018, 09:10
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)
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#5

AW: Eigene Komponente TCustomControl den Focus erhalten

  Alt 21. Okt 2018, 09:18
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

Geändert von EWeiss (21. Okt 2018 um 09:27 Uhr)
  Mit Zitat antworten Zitat
Hobbycoder

Registriert seit: 22. Feb 2017
1.017 Beiträge
 
#6

AW: Eigene Komponente TCustomControl den Focus erhalten

  Alt 21. Okt 2018, 09:51
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.
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#7

AW: Eigene Komponente TCustomControl den Focus erhalten

  Alt 21. Okt 2018, 10:13
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

Geändert von EWeiss (21. Okt 2018 um 10:22 Uhr)
  Mit Zitat antworten Zitat
Hobbycoder

Registriert seit: 22. Feb 2017
1.017 Beiträge
 
#8

AW: Eigene Komponente TCustomControl den Focus erhalten

  Alt 21. Okt 2018, 09:32
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.
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#9

AW: Eigene Komponente TCustomControl den Focus erhalten

  Alt 21. Okt 2018, 09:36
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

Geändert von EWeiss (21. Okt 2018 um 09:42 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz