表1.5 主要组件的属性设置
4.主要程序代码如下:
procedure TForm1.FormShow(Sender: TObject);
begin
p1 := 1;
p2 := 1;
p3 := 1;
end;
procedure TForm1.Image2Click(Sender: TObject);
var
i,n,h : integer;
begin
if (p1=1) then
begin
image7.Picture.LoadFromFile(′2朝上按钮.jpg′);
h := panel3.Height;
panel3.Height := panel3.Height - 20;
for i := 0 to 3 do
begin
panel3.Height := panel3.Height - 20;
label1.Top := label1.Top-20;
panel4.Top := panel4.Top-20;
panel5.Top := panel5.Top-20;
label2.Top := label2.Top-20;
panel6.Top := panel6.Top-20;
panel7.Top := panel7.Top-20;
end;
p1 := p1+1;
end
else
begin
image7.Picture.LoadFromFile(′2朝下按钮.jpg′);
for i := 0 to 3 do
begin
panel3.Height := panel3.Height + 20;
label1.Top := label1.Top+20;
panel4.Top := panel4.Top+20;
panel5.Top := panel5.Top+20;
label2.Top := label2.Top+20;
panel6.Top := panel6.Top+20;
panel7.Top := panel7.Top+20;
end;
p1 := p1-1;
end;
end;
procedure TForm1.Image3Click(Sender: TObject);
var
h,i : integer;
begin
if (p2=1) then
begin
image3.Picture.LoadFromFile(′2朝上按钮.jpg′);
h := panel5.Height;
panel5.Height := panel5.Height - 20;
for i := 0 to 3 do
begin
panel5.Height := panel5.Height - 20;
label2.Top := label2.Top-20;
panel6.Top := panel6.Top-20;
panel7.Top := panel7.Top-20;
end;
p2 := p2+1;
end
else
begin
image3.Picture.LoadFromFile(′2朝下按钮.jpg′);
for i := 0 to 3 do
begin
panel5.Height := panel5.Height + 20;
label2.Top := label2.Top+20;
panel6.Top := panel6.Top+20;
panel7.Top := panel7.Top+20;
end;
p2 := p2-1;
end;
end;