Panel 仿造成一个不错的按钮的样子， TabOrder也是整形，利用它变色

//拓：控件TabOrder也是整形，利用它变色；以下为Panel 仿造成一个不错的按钮的样子

procedure TForm9.pnl1MouseEnter(Sender: TObject);
begin
  TPanel(Sender).Color :=$0069D200+TPanel(Sender).TabOrder*250;
end;

procedure TForm9.pnl1MouseLeave(Sender: TObject);
begin
  TPanel(Sender).Color :=$00009100+TPanel(Sender).TabOrder*1000;
end;