请问scrollbar来控制控件移动的问题！ ( 积分: 20 )

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-30

• #1

我用scrollbar移动一个EDIT控件，控制它从form的左边起始端移动到右边顶端，该怎么写啊？？？

 

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-30

• #2

兄弟们帮忙看一下！

 

Y

ysp娃娃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-30

• #3

procedure TForm1.FormCreate(Sender: TObject);
begin
Scrollbar1.Min:= 0;
Scrollbar1.Max:= Self.ClientWidth - Button1.Width;
Scrollbar1.Position:= Button1.Left;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Button1.Left:= Scrollbar1.Position;
end;

 

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-30

• #4

非常感谢的，我试试就给分了！

 

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-18

• #5

多人接受答案了。