| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с положением объектов в ScrollBoxe [D6, WinXP]

webpauk ©   (2007-04-23 18:31:00) 

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   ScrollBox1: TScrollBox;
   Button1: TButton;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 end;

var
 Form1: TForm1;
 B1, B2: TButton;
 
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 B1:=TButton.Create(ScrollBox1);
 B1.Left:=50;
 B1.Top:=800;
 b1.Parent:=ScrollBox1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 B2:=TButton.Create(ScrollBox1);
 B2.Left:=50;
 B2.Top:=0;
 b2.Parent:=ScrollBox1;
end;

end.

ежели сначала сделать Button1Click и проскролить ScrollBox к низу, то когда делаешь Button2Click, то положение B2.top<>0, а равно 0+смещение ScrollBoxa
как поместить B2 реально в Top:=0?

---

webpauk   (2007-04-23 19:11:00) [1]

ScrollBox1.VertScrollBar.Position:=0;
...решение проблемы!

---

webpauk   (2007-04-23 18:35:00) [2]

> webpauk   (23.04.07 18:32) [1]
> ScrollBox1.width:=400;

извиняюсь, имел в виду: height

---

webpauk   (2007-04-23 18:32:00) [3]

ScrollBox1.width:=400;

---

Наверх