Objekt an Trackbar Position ausrichten

[Luki206]

Hi DP, ich stehe vor einem Problem nämlich will ich ein Objekt zur Laufzeit erzeugen und dieses dann an der Trackbarposition ausrichten. Es soll also genau da entstehen wo der Trackbar Regler im Moment steht. Das ganze dient dazu Positionen aus der Trackbar zu speichern und später wieder aufzurufen. Hier ist mein bisheriger Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Img: TImage; pos, top: Integer; h: Cardinal; res: TResourcestream; Graphic: TGraphic;
begin
  if not Cut1 then begin
  eins := Trb.Position;
  pos := Trb.Position * Form1.Width div 100;
  Img := TImage.Create(self);
  Img.Width := 32;
  Img.Height := 32;
  Img.Top := Trb.Top-30;
  Img.Left := pos-16;
  h := LoadLibrary('test.dll');
  res := Tresourcestream.CreateFromID(h, 8, RT_RCDATA);
  Graphic:= TPngImage.Create;
  try
    Graphic.LoadFromStream(res);
    Img.Picture.Assign(Graphic);
  finally
   res.Free;
   Graphic.Free;
  end;
  self.InsertControl(Img);
  cut1 := true;
end else begin
  Second := eins;
  Trb.Position := eins;
end;
end;

Ich hole mir die Position der Trackpar in Pixeln mit dem: pos := Trb.Position * Form1.Width div 100; das ist aber nicht das Gelbe vom Ei da die Position nicht stimmt bzw. sehr stark abweicht.
Wie kann ich eine 'elegantere' Methode benutzen falls es eine gibt
Danke
Luki

[Dalai]

Geht die TrackBar denn über die gesamte Breite der Form?

Übrigens fehlt zu dem LoadLibrary ein entsprechender FreeLibrary-Aufruf. Und die Rückgabe von LoadLibrary sollte ebenfalls ausgewertet werden.

MfG Dalai

[Luki206]

Ja, nur ist der Anchor akRight aktiv deshalb habe ich auch ein Problem mit den erzeugten Images aber egal, ich werte doch das LoadLibrary mit

Code:

h := ...

aus oder verstehe ich gerade etwas falsch?

[nuclearping]

Was machst du, wenn's Test.dll nicht gibt oder er aus irgendwelchen anderen Gründen die DLL nicht laden konnte?

LoadLibrary

if (h = 0) then ... Fehler

[Luki206]

Ach so, ups.. Und wie kann ich das mit der Trackbar machen wenn sie über die ganze Form geht also Align alBottom?

[stahli]

Da es TrackBar.SchiebereglerPositionX m.E. nicht gibt wird es wohl schwierig werden.

Du könntest ggf. eine eigene Komponente ableiten und die obige (neu hinzu zu fügende) Eigenschaft innerhalb der Zeichenfunktion selbst belegen.

Ansonsten kannst Du vielleicht die Position selbst über Prozente von Width ermitteln, aber das kann dann durchaus Abweichungen enthalten.