Progressbar Position per Maus verändern

[Larsi]

Hi,
also ich habe eine Progressbar die ich mit der Maus verstellen möchte. Also die Position der Progressbar. Wie mache ich das? Im Grunde genommen soll das so funktionieren wie bei einer Trackbar.

MFG Lars Wiltfang

[Luckie]

Und warum nimmst du keine Trackbar? Dazu ist sie da. Eine Progressbar ist rein passiv und diuent, wie der Name schon sagt, dazu einen Fortschritt zu visualisieren.

[Larsi]

Weil ich für ein Projekt keine Trackbar verwenden will. Aus designtechnischen Gründen (Carbon Copy Komponenten haben keine TRackbar und ich will das mein Programm wie ein Mac Programm aussieht und die Trackbar würde alles kaputt machen ^^)

[divBy0]

Du hast bei der ProgressBar ein OnMouseDown Ereignis, damit kannst du das realisieren.

[Larsi]

Also ich habe in das Mouse Down ereigniss bereits folgendes reingeschrieben:
ccprogressbar2.Position := ccprogressbar2.ScreenToClient(Mouse.CursorPos).x; Aber da das Maximum der Progressbar variabel sein kann geht das nicht.

[DeddyH]

Da ist dann Prozentrechnung angesagt.

[divBy0]

Müsste so gehen:

Delphi-Quellcode:

procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  MouseX: Integer;
begin
  MouseX := round(X / (ProgressBar1.Width / 100.0)); // -> oder anstatt 100.0 ProgressBar1.Max

  ProgressBar1.Position := MouseX;
end;

[Luckie]

Zitat von Larsi:

Weil ich für ein Projekt keine Trackbar verwenden will. Aus designtechnischen Gründen (Carbon Copy Komponenten haben keine TRackbar und ich will das mein Programm wie ein Mac Programm aussieht und die Trackbar würde alles kaputt machen ^^)

Na dann viel Spass mit den benutzer, die rumraten, wie man die Fortschrittsanzeige "bedient". Auch wenn das unter MAC üblich ist, unter Windows ist es das nicht. Eine intuitive Bedienung ist was anderes.

[divBy0]

Zitat von Luckie:

Zitat von Larsi:

Weil ich für ein Projekt keine Trackbar verwenden will. Aus designtechnischen Gründen (Carbon Copy Komponenten haben keine TRackbar und ich will das mein Programm wie ein Mac Programm aussieht und die Trackbar würde alles kaputt machen ^^)

Na dann viel Spass mit den benutzer, die rumraten, wie man die Fortschrittsanzeige "bedient". Auch wenn das unter MAC üblich ist, unter Windows ist es das nicht. Eine intuitive Bedienung ist was anderes.

Beim MAC ist mir so eine "Trackbar" bis jetzt auch noch nicht aufgefallen.

[Volle]

Zitat von divBy0:

Müsste so gehen:

Delphi-Quellcode:

procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  MouseX: Integer;
begin
  MouseX := round(X / (ProgressBar1.Width / 100.0));

  ProgressBar1.Position := MouseX;
end;

wäre es nicht besser es so zu machen?

Delphi-Quellcode:

...
MouseX:=round((X*ProgressBar1.Max)/ProgressBar1.Width);
...

ich mein wegen integer und kuerzung ..

[edit]
achso verdammt du hast ja 100.0 geschrieben
[/edit]