Gauge auf Mausposition springen lassen

Apollo · Beiträge: 125 Windows 7 Delphi 3 Prof., Delphi 2005

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

_________________
Im Zweifelsfall immer das Richtige tun

Tilman · Verfasst: 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.

markieren

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;

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)

Apollo · Beiträge: 125 Windows 7 Delphi 3 Prof., Delphi 2005

Der Code Läuft, super Danke

_________________
Im Zweifelsfall immer das Richtige tun

Tilman · Verfasst: Mi 25.06.08 14:02

super
*gg

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme