Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Gauge auf Mausposition springen lassen
Apollo - Di 24.06.08 21:32
Titel: Gauge auf Mausposition springen lassen
Hallo Delphianer,
ich möchte mit dem Klick auf Gauge den Process an die entsprechende stell springen lassen. Also: Gauge hat 0%, ich Klicke in die Mitte und er porcess soll 50% sein, ich Klick woanderster hin und der Process soll da sein. Hoffe ihr wisst was ich meine.
Danke im voraus
Apollo
Moderiert von 
Narses: überflüssige Zeilenumbrüche entfernt
Tilman - Di 24.06.08 22:11
Am einfachsten ginge es mit einer ProgressBar. Aber auch so geht es:
1. Lege eine (unsichtbare) TPaintBox-Komponente über die Gauge.
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
gauge1.Progress := round((100/paintbox1.Width)*x);
end; |
Apollo - Mi 25.06.08 14:00
Der Code Läuft, super Danke :D
Tilman - Mi 25.06.08 14:02
super
*gg
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!