Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by divBy0,
28. Okt 2008
Beim MAC ist mir so eine "Trackbar" bis jetzt auch noch nicht aufgefallen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by divBy0,
28. Okt 2008
Müsste so gehen:
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;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by divBy0,
28. Okt 2008
Du hast bei der ProgressBar ein OnMouseDown Ereignis, damit kannst du das realisieren.