Metro的风格很漂亮啊，写了个代码看了看还算舒服
开个新FORM，丢4个image上去，一个Button

然后copycode。蛮好看的

Delphi(Pascal) code

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;

[解决办法]
运行了，没感觉有什么新奇的
[解决办法]
Win8风格？有什么好的，看不出来
】
[解决办法]
有点意思
[解决办法]
回归 DOS 本色
[解决办法]
确实看起来蛮舒服的
[解决办法]
作个标记，学习一下
[解决办法]
很好！你使我们每日都在进步
[解决办法]
感觉怪怪的