Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - OnMouseUp-Event für TrackBar
Zaubär - So 22.12.02 22:30
Titel: OnMouseUp-Event für TrackBar
Hi,
ist es möglich einer TTrackBar ein MouseUp-Event zu verpassen ??
AndyB - Mo 23.12.02 01:38
Natürlich ist dies möglich. Du musst nur eine neue Class von TTrackBar ableiten und im published-Teil dann folgendes schreiben:
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:
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; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!