Delphi专题 ·

Delphi顶部收缩菜单

Delphi顶部收缩菜单 Delphi专题 第1张

主要代码

procedure TForm6.AbreMenu;
begin
  rctMenu.AnimateFloat('Position.Y', 0, 0.5);
  btnMenu.AnimateFloat('RotationAngle', 90 , 0.5);
  rctMenu.Tag := 1;
end;

procedure TForm6.btnMenuClick(Sender: TObject);
begin
  if(rctMenu.Tag = 0)then
    AbreMenu
  else
    FechaMenu;
end;

procedure TForm6.FechaMenu;
begin
  rctMenu.AnimateFloat('Position.Y', 0 - rctMenu.Height, 0.5);
  btnMenu.AnimateFloat('RotationAngle', 0, 0.5);
  rctMenu.Tag := 0;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
  FechaMenu;
end;

procedure TForm6.lst1ItemClick(const Sender: TCustomListBox; const Item: TListBoxItem);
begin

  FechaMenu;
end;

相关下载

点击下载

参与评论