mit Trackbar Panel vergrößern und verkleinern

[juergen]

Hallo zusammen,

wahrscheinlich sehe ich den Wald vor lauter Bäumen nicht...Gesucht hab ich hier auch schon etwas.
Mit der Trackbar möchte ich ein Panel vergrößern oder wieder verkleinern, jenachdem in welche Richtung ich diese schiebe.

Mein 1. (wohl naiver) Ansatz war:

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  LastPos: Integer;
begin
  if LastPos > TrackBar1.Position then begin
    pnl1.Width := pnl1.Width + TrackBar1.Position;
  end else begin
    pnl1.Width := pnl1.Width - TrackBar1.Position;
  end;
  LastPos := TrackBar1.Position;
end;

Egal wie in welche Richtung ich die Trackbar schiebe, das Panel wird immer nur vergrößert.
Wo ist mein Denkfehler?

Vorab schon mal vielen Dank!

Edit: Es muss keine Trackbar sein. Es kann auch eine andere Komponente verwendet werden, Hauptsache ich habe so eine Art von Schieberegler zum vergrößern und verkleinern des Panels.

[mkinzler]

Versuch mal:

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
    pnl1.Width := 100 + TrackBar1.Position;
end;

100 ist Startgröße ( kleinste Größe)

[juergen]

@mkinzler,
funktioniert!:-D
Vielen Dank, auf sowas einfaches bin ich gar nicht gekommen.:oops:

Gute Nacht!