Objekt an Trackbar Position ausrichten

[lbccaleb]

Keiner weiß, was du da genau machst. Wie wäre es mal mit dem Code Abschnitt im ganzen?
Hier kann keiner Hellsehen...

[Luki206]

Ich werde es glaub ich nie lernen.. hier:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.pngimage, Vcl.ExtCtrls,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    ImgEck1: TImage;
    ImgSlideGro: TImage;
    ImgEck2: TImage;
    ImgSlide: TImage;
    Timer1: TTimer;
    LblTest: TLabel;
    Ed1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Timer2: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    max : Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not (Ed1.Text = '') then begin
  max := StrToInt(Ed1.Text) * 10;
  Timer1.Enabled := true;
  Timer2.Enabled := true;
end else begin
  Application.MessageBox('Bitte eine Maximal-Zahl eingeben!', 'MAX ZAHL', MB_ICONWARNING or MB_OK);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := false;
Timer2.Enabled := false;
Label1.Caption := '0';
ImgSlide.Left := ImgEck1.Left;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var maxwi: Integer;
begin
if (ImgSlide.Left = ImgEck2.Left) or (ImgSlide.Left > ImgEck2.Left+5) then begin
  ImgSlide.Left := ImgEck1.Left;
end else begin
  ImgSlide.Left := ImgSlide.Left+(((ImgEck1.Left+ImgEck2.Left+32)+ max div 60)div max);
end;             
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(StrToInt(Label1.Caption)+1);
end;

end.

[lbccaleb]

Schau mal hier hab ich mal vor langer Zeit dran rumprobiert, vllt. kann dir das ja helfen...
http://www.delphipraxis.net/130916-t...-erzeugen.html

[Luki206]

Hmm.. Da wird ja die Trackbar in einem neuen Fenster geöffnet/erzeugt nur ich möchte ja eigentlich nur errechnen wie die Trackbar sich bewegt bei unterschiedlicher Länge eines Integer Wertes der Breite der 'gebauten' Trackbar und die Position des Schiebers.

Edit: Und wenn der Wert größer als 70 sek. hängt sich das ganze auf und der Schieber bewegt sich nicht mehr..

[stahli]

Mir erschließt sich nicht, was Du mit den Timern machst.
Häng doch mal Dein Testprojekt als Zip an.
Vielleicht kann dann ja jemand mal drauf schauen.

[Luki206]

Ich habe, damit ich das Projekt wiedererkennen kann, ihm den Namen TestTrackbar gegeben also nicht wundern

[stahli]

Hmm, ich weiß nicht recht, was Du da erreichen willst.
Auf jeden Fall solltest Du Dein Ziel etwas einfacher angehen.
Je einfacher, desto besser nachvollziehbar und wartbar.

Ich denke, Dein Problem liegt in dem max div 60)div max .
Wenn max > 60 ist dann hat das natürlich deutliche Auswirkungen.

Aber für eine bessere Lösung müsste man wissen, was Du erreichen willst.

Sind die Timer aktuell nur für Tests da? Willst Du die Trackbar später mit der Maus einstellen oder brauchst Du eher eine ProgressBar, die einen Fortschritt anzeigt?