TTrckbar und Aktion auf rechte Maustaste - wie?

[Pfoto]

Hallo,

du könntest eine Control von TTrackbar ableiten und das
Mouse-Event abfangen.

Ich habe die folgenden Codes aus der Unit Controls:

Delphi-Quellcode:

{ private }
procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN;

{ published }
property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;


{ Implementierung }
procedure TControl.WMRButtonDown(var Message: TWMRButtonDown);
begin
  inherited;
  DoMouseDown(Message, mbRight, []);
end;

Dann könntest im MouseDown-Event dir echte Maustaste abfangen, ich glaube so:
 If (mbRight = Button) then ...
Gruß
Jürgen