up
解决方案 »
- 关于数据库连接慢的问题~麻烦大家进来看看 在线等
- 高手进来帮忙:在DELPHI下如何实现报警功能(即调用一个自已的特制音乐)
- 如何使用DBGridEH.STFilter?(过滤)
- 两个小问题!!!
- 一个很多人问过的问题,如何使treeview和数据库相关联
- 如何修改IE选项的安全里面的各项设置!
- 紧急求救,关于ActiveForm的问题
- 关于adotable的问题!
- 怎么不用webbrowser播放flash?
- 请教jpg格式的透明显示问题:用photoshop画的字,怎样让他透明显示在另外一副jpg的图片上
- 有重复数据时提前提示,我在数据sql内建立了组合索引,就是part_code,st_name 这两个字段不能同时相同,
- 带有时间条件的查询问题
要什么样的规格,自己可以控制。
顯示為網格???那用個 StringGrid 占滿整個form最簡單了!也可用Form的canvas 上畫啊!!
var
i,j :integer;
Height,Width :integer;
begin
Height := Form1.Height;
Width :=Form1.Width;
i :=0;
j :=0;
while i< Height do
begin
while j< Width do
begin
Form1.Canvas.Pixels[j,i] :=clBlack;
j :=j+5;
end;
j :=0;
i :=i+5;
end;
end;
var
i,j :integer;
Height,Width :integer;
begin
Height := Form1.Height;
Width :=Form1.Width;
i :=0;
j :=0;
while i< Height do
begin
while j< Width do
begin
Form1.Canvas.Pixels[j,i] :=clBlack;
j :=j+8;
end;
j :=0;
i :=i+8;
end;
end;