Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Unsichtbare "Fokus-Komponente"

  Alt 19. Okt 2011, 09:18
Wenn Du eine eigene Komponente programmieren willst, leite diese einfach von TWinControl ab (TPanel ist auch ein TWinControl-Derivat).
die ScrollBox ist IMHO auch von TWinControl abgeleitet.
Ich würde WMMouseActivate überschreiben so in der Art:
Delphi-Quellcode:
procedure TMyScrollBox.WMMouseActivate(var Message: TWMMouseActivate);
begin
  inherited;
  if not (csDesigning in ComponentState) and CanFocus then
    SetFocus;
end;
Frank
Frank Reim
  Mit Zitat antworten Zitat