procedure TForm10.FormCreate(Sender: TObject);
begin
Panel1.Color:=clHighlight;
SetWindowRgn(Panel1.handle,CreateRoundRectRgn(0,0,panel1.width,Panel1.height,50,50),true);
end;
Panel1的BevelInner 及 BevelOuter 最好设成 bvNone
procedure TForm10.FormCreate(Sender: TObject);
begin
Panel1.Color:=clHighlight;
SetWindowRgn(Panel1.handle,CreateRoundRectRgn(0,0,panel1.width,Panel1.height,50,50),true);
end;
Panel1的BevelInner 及 BevelOuter 最好设成 bvNone
尝试用Delphi、DFS深度优先搜索算法造一个迷宫,使用DFS实现寻路并展示画出来。
举报文章
请选择举报类型
补充说明
0/200
上传截图
格式支持JPEG/PNG/JPG,图片不超过1.9M