TrackBar Umrandung bzw. Tab entfernen?

[AlexII]

Hallo,

hab bei dem TrackBar Tab auf Stop (auch im OnChange) gestellt, aber immer wenn ich den Schieber bewege wird die TrackBar selektiert bzw. ein Rand rundherum gezogen. Wie bekomme ich das weg?

[AlexII]

Kann mir keiner was sagen?

[himitsu]

die Trackbar DEselektieren bzw. was anderes selektieren?

[AlexII]

Egal was, Hauptsache die TrackBar wird nicht beim schieben des Schiebers selektiert.

[himitsu]

Wenn es beim Verschieben/Anklicken weg sein soll, dann geht es so wohl doch nicht so gut.

Komisch ist jetzt, ich hab mit grad mal eine Testanwendung gebaut (nur die Trackbar und ein Button drauf).

Wenn ich das starte dann ist kein Fokusrahmen da, auch nicht beim anklicken (und selbst wenn es da den Fokus hat),
aber sobald die Trackbar nur einmal den Fokus via Tabulator-Taste bekommen hat, ist ab da dieser Rahmen immer sichtbar, wenn de Fokus darauf liegt.

Es muß also intern irgendwas geben (was ich nicht kenn) welches dafür sorgt, das er mal sichtbar ist und mal nicht, was umgeschaltet wird, sobald z.B. die Tab-Taste ins Spiel kommt.

[lbccaleb]

Vllt könntest mal nen Screenshot machen, denn bei mir ist gar keine Umrandung vorhanden??

[himitsu]

bitte

[AlexII]

Also weiß keiner wie man es weg bekommt?

[Sunlight7]

WS_TABSTOP aus dem Window Style entfernen?

[DeddyH]

Das mit WS_TABSTOP hat bei mir leider nicht funktioniert. Nach ein paar Versuchen (Delphi 5 unter XP SP 3) ist mein jetziger Stand dieser, scheint bisher zu funktionieren, Garantien übernehme ich aber keine:

Delphi-Quellcode:

unit Nix;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TTrackBar = class(ComCtrls.TTrackBar)
  private
    FOldWnd: HWnd;
    procedure WMSetFocus(var Msg: TWMSetFocus);
      message WM_SETFOCUS;
    procedure WMPaint(var Msg: TWMPaint);
      message WM_PAINT;
  end;

  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TTrackBar.WMSetFocus(var Msg: TWMSetFocus);
begin
  inherited;
  FOldWnd := Msg.FocusedWnd;
end;

procedure TTrackBar.WMPaint(var Msg: TWMPaint);
var DC: hDC;
    R: TRect;
begin
  inherited;
  if (GetFocus = self.Handle) and (FOldWnd <> self.Handle) then
    begin
      DC := GetWindowDC(self.Handle);
      if DC <> 0 then
        try
          R := Rect(0,0,self.Width,self.Height);
          DrawFocusRect(DC,R);
          FOldWnd := self.Handle;
        finally
          ReleaseDC(self.Handle,DC);
        end;
    end;
end;

end.