Metro的风格很漂亮啊，写了个代码看了看还算舒服

[shuaialang]

开个新FORM，丢4个image上去，一个Button

然后copycode。蛮好看的

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp:TBITMAP;
   procedure Setsize;
    begin
      color:=clBlack;
      Width:=446;
      Height:=527;
       with Image1 do
        begin
        Left := 16 ;
        Top := 16  ;
        Width := 209;
        Height := 121;
        Stretch:=true;
        end;
       with Image2 do
        begin
        Left := 16 ;
        Top := 152 ;
        Width := 209 ;
        Height := 105;
        Stretch:=true;
        end;
       with Image3 do
        begin
        Left:= 16;
        Top := 272  ;
        Width := 209;
        Height := 113;
        Stretch:=true;
        end;
      with Image4 do
        begin
        Left := 240;
        Top := 16;
        Width := 177;
        Height := 369 ;
        Stretch:=true;
        end;
   end;
begin
  bmp:=TBitmap.Create;
  bmp.Canvas.Brush.Color:=$00FE913C;
  bmp.Width:=250;
  bmp.Height:=150;
  bmp.Canvas.Font.Color:=clWhite;
  bmp.Canvas.Font.Size:=20;
  bmp.Canvas.Font.Name:='宋体';
  bmp.Canvas.Font.Style:=[fsBold];
  bmp.Canvas.TextOut(20,20,''); //文字
  Setsize;
  image1.picture.bitmap:=bmp;
  image2.picture.bitmap:=bmp;
  image3.picture.bitmap:=bmp;
  image4.picture.bitmap:=bmp;
  bmp.Free;
end;

[鐵蛋]

沒明白

[shuaialang]

[Quote=引用 1 楼 xstdljj 的回复:]
沒明白
[/Quote]

实际操作下就明白了

[ccrun.com]

就是所谓的Win8/WP7风格。

[aday]

运行了，没感觉有什么新奇的

[cankoo]

Win8风格？有什么好的，看不出来
】

[hongss]

有点意思

[Frank.WU]

回归 DOS 本色

[shuaialang]

自己感觉看着还舒服

看起来我跟微软设计师有这一点的共同审美啊哈哈

[Monkey_D_Luffy]

确实看起来蛮舒服的

[纯冰糖]

作个标记，学习一下

[fengchuixuelai]

很好！你使我们每日都在进步

[爱蹄子的羊头]

感觉怪怪的