OnMouseUp-Event für TrackBar

Zaubär · Beiträge: 99

Hi,

ist es möglich einer TTrackBar ein MouseUp-Event zu verpassen ??

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

Natürlich ist dies möglich. Du musst nur eine neue Class von TTrackBar ableiten und im published-Teil dann folgendes schreiben:

markieren

Quelltext

1:
2:
3:
4:
5:

published
  property OnMouseUp;
  property OnMouseDown;
  property OnMouseMove;
end;

Wenn du jedoch keine neue Komponente dafür schreiben willst, kannst du das ganze auch so lösen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

TTrackBarHack = class(TTrackBar);
...
procedure TForm1.TrackBarMouseUp(Sender: TObject; ...);
begin
end;

...
begin
  TTrackBarHack(TrackBar1).OnMouseUp := TrackBarMouseUp; // Ereignis zuweisen
end;

_________________
Ist Zeit wirklich Geld?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme