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.