16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.btn3Click(Sender: TObject);
begin
if wb2.Left = -500
then
begin
wb1.Left := -500;
wb2.Left := 5;
end
else
begin
wb1.Left := 5;
wb2.Left := -500;
end
end;