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