Kurze Info, was ich mache:
ich bastle grade an einem neuen Schieberegler, da ich keine Komponente gefunden habe die auch mit Floatingpoints arbeiten kann.
Ich möchte Werte einstellen zwischen z.B. -13,56 bis +134,9
Blödes Beispiel, soll nur verdeutlichen was der Schieber machen soll.
Zudem sollte, wenn ich eine Position anklicke, der Schieber sofort dort hin springen. Das läuft jetz auch alles super.
Nun meine Frage:
Ich habe für die Anzeige des aktuellen Wertes den "Hint" benutzt.
So wird der Wert angezeigt wenn die Komponente den Focus bekommt.
Kann ich den Hint solange anzeigen lassen wie eine Maustaste gedrückt ist ?
Dann sehe ich direkt beim Schieben gleich den entsprechenden Wert,
oder evtl. den Hint solange anzeigen wie die Komponente den Focus hat.
Im Prinzip suche ich also nach der Möglichkeit den Hint per Software zu aktivieren, eventuell sogar die Hint Position festzulegen.
Ich könnt mir natürlich eine zusätzliche Komponente generieren, die dann angezeigt wird, aber eigentlich existiert das ja schon.
Siro
Zusatz:
Habe jetz auch eine neue OnChange Funktion implementiert, der Unterschied ist hier gut zu sehen. Bei OnChange brauch ich doch meisten den aktuellen Wert und den
übergebe ich dann sinnvollerweise....
Beim Scrollbar muss man da schon tricksen, oder ich mache da was falsch..
Code: Alles auswählen
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
if Sender is TScrollBar then caption := IntToStr(TScrollBar(Sender).Position);
end;
Bei mir sieht es nun so aus:
Code: Alles auswählen
procedure TForm1.SliderHor1Change(Sender: TObject; posi: Double);
begin
caption:=FloatToStr(posi);
end;