Einzelnen Beitrag anzeigen

wadriller

Registriert seit: 25. Feb 2009
43 Beiträge
 
Delphi XE2 Professional
 
#2

Re: TButtongroup - Focus auf einen Eintrag setzen

  Alt 17. Mär 2010, 14:12
Konnte es gerade selbst lösen.

Einfach eine Neue Komponente "MyButtonGroup"

Diese bekommt eine Published Property "KeinenFokusZeigen" und überschreibt das ButtonDraw Event
Damit wird kein Fokues mehr gezeigt.


Delphi-Quellcode:
procedure TMyButtonGroup.DrawButton(Index: Integer; Canvas: TCanvas; Rect: TRect; State: TButtonDrawState);
begin
  if KeinenFokusZeigen then begin
    if bdsFocused in State then
      State := State - [bdsFocused];
  end;
  inherited;
end;
Gruß
Michael
  Mit Zitat antworten Zitat