Как поместить trackbar в statusbar

[SeRhy]

Подскажите пожалуйста как поместить trackbar в statusbar.
Зарание спасибо

[strannik]

попробуй так:

procedure TForm1.FormCreate(Sender: TObject);
begin
 with trackbar1 do
  begin
   parent:=statusbar1;
   height:=14;
   thumblength:=10;
   top:=3;
   left:=22;
   width:=statusbar1.Panels[0].Width-(2*left);
  end;
end;

[Черничный]

Круто! А можно так же не тракбар, а прогресс бар? Только вот с тракбаром, все срабатывает, но при креейте выкидывает страшное сообщение. Это нормально?

[Dux]

Попробуйте без последней строчки:

procedure TForm1.FormCreate(Sender: TObject);
begin
 with trackbar1 do
  begin
   parent:=statusbar1;
   height:=14;
   top:=3;
   left:=22;
    thumblength:=10;
  end;
end;

[Черничный]

Сообщение от Dux

Попробуйте без последней строчки:

procedure TForm1.FormCreate(Sender: TObject);
begin
 with trackbar1 do
  begin
   parent:=statusbar1;
   height:=14;
   top:=3;
   left:=22;
    thumblength:=10;
  end;
end;

Вот это работает отлично.