TScrollBox & Array of TImage

[Rin]

доведу до ума и поделюсь. если не доведу, то поделюсь тем, что получилось)))

[kirsan007]

Спасибо большое. Буду с нетерпение ждать! ^^

[Rin]

частично решил проблему, но всё же он косячит с границей между Image`ами. Там опять же подбирать значение, которое у меня равно 24.

ScrollBox1.VertScrollBar.Position>24

сорри, что не доделал до конца. Спать хочу, а тут ещё челу помочь надо.
Если уж не справишься, отпишись в личку, добьем прогу твою)

[ArtGrek]

вот так будет работать

var
  Form1: TForm1;
  indx: integer = 0;
  mImage: array [1..10] of TImage;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(indx);
  mImage[indx] := TImage.Create(self);
  mImage[indx].Parent := ScrollBox1;
  mImage[indx].Top := 10 + mImage[indx].Height * (indx - 1) - ScrollBox1.VertScrollBar.Position;
  mImage[indx].Left := 40;
  mImage[indx].Width := 590;
  mImage[indx].Height := 100;
  mImage[indx].Picture.LoadFromFile('C:\Documents and Settings\ArtGrek\Рабочий стол\Новая папка\1 (1).bmp');
  ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Range
end;

[kirsan007]

Спасибо огромное обоим.
Rin, боюсь прийдется обратиться в ПМ :D

ArtGrek программа работает супер! Но есть одно НО. Она добавляет следующую картинку под предыдущую, а мне надо над ней.
То есть если я ввожу поочередно числа 1,2,3,4,5,6,7,8,9
В программе должно выводиться так
9
8
7
..
2
1

Если сможешь сделать так, буду безумно благодарен.

[Stilet]

Я что-то не пойму, стандартные средства Делфи уже вышли из моды?

 with TImage.Create(ScrollBox1) do begin
  Parent:=ScrollBox1;
  Align:=alTop;
  Height:=ScrollBox1.Height div 3;
    Picture.Bitmap.LoadFromFile('I:\Final Fantasy.bmp');
  Show;
  Stretch:=true;
  top:=0;
 end;

Всего-то... Картинки как раз будут выравниваться, и новые появятся в топе скролбокса.

[kirsan007]

При скруле происходит увы тоже самое... Картинка помещается в топ проскруленой части,а не в топ скрулбара.

[Rin]

Короче вот. Теперь до ума доведена.

[kirsan007]

О_О спасибо огромное! Всё работает на ура.
И спасибо всем кто помогал ^^.

P.S Ещё раз всем спасибо.