几天来，每天发帖问些菜鸟问题，但还是有好多都没解决，又不愿意总是自己顶，所以想合起来发一帖。分也稍微高点，希望各位帮忙~一、前几天碰到个问题。当在form上放一个GroupBox再放一个SpeedButton。那groupbox总是当住speedbutton。有回帖告诉我加一句speedbutton.bringtofrout.可是我不论加在formcreate里还是加在speedbuttonclick内，还是一样。今天又碰到了。在form内加入StringGrid再加入Image，那image的图象也会被当住。请问一下是不是需要在属性栏内设置一下？那如果需要加语句，麻烦告诉我加到什么里面？小弟愚笨。二、在程序调试中，当把鼠标放到stringgrid1.Cells[acol,arow]上时，会出现提示：']'expected but end of file fornd 。有回帖告诉我程序中少了‘[‘。可惜我查了好久都没有找到（也许自己粗心）。（再顺便问一下使用查找的时候怎么才能告诉我查找到多少个？如果知道'['和']'的个数。也应该能证明少没少了吧~）三、还是上一个程序，在acol里我使用的是integer。但帮助提示是用longint。我查了一下书，说可以代替。问一下什么时候不能代替？~四、程序中在SpeedButtonClick内加入close；每次提示出错。这个问题是上星期的，程序现在也不在，而且再也没碰到过这样的问题。在这里也就提一下，如果有谁同样碰到过这类问题帮忙讲讲~（应该算小问题吧）:)五、在窗中中放一个image，经常打开的图片会有部分看不到。我用autosize又会使image窗口形状改变。怎么在image窗口中把图片全部显示出来？六、（放到一楼吧。说的太多怕大家嫌我烦）^_^
还有一个论坛的问题。我不知道为什么我这里不能回复短信，只能收到。所以请朋友们见凉。
我只能给100分。。（哈哈， 6.5个问题，一个还不到20分，赚啦）
还有一个论坛的问题。我不知道为什么我这里不能回复短信，只能收到。所以请朋友们见凉。
我只能给100分。。（哈哈， 6.5个问题，一个还不到20分，赚啦）
procedure tform1.stringgrid1drawcell(sender:tobject;acol,arow:integer;
rect:trect;state:tgriddrawstate);
begin
if(acol<6)or(arow<1) then
begin
stringgrid1.Canvas.Brush.Style:=bsdiagcross;
stringgrid1.Canvas.Brush.Color:=clblue;
stringgrid1.Canvas.FillRect(rect);
if stringgrid1.Cells[acol,arow]<>'0' then
stringgrid1.Canvas.CopyRect(rect,image1.Canvas,bounds(((strtoint
(stringgrid1.Cells[acol,arow])-1) mod 6)*60,((strtoint(
stringGrid1.cells[acol,arow])-1)div 6)*60,60,60));
end
else begin
stringgrid1.Canvas.Brush.Style:=bsdiagcross;
stringgrid1.Canvas.brush.Color:=clblue;
stringgrid1.Canvas.FillRect(rect);
end;
end;谢谢了~
第二须把代码付上。
第三什么时候都可代替。
第四不了了之，没有代码可以分析吗？
第五将Stretch设为True,使图片强制适应的Image大小。或将Image放在ScrollBox中，可以滚动查看。
第六留给别人。
第二个问题代码http://community.csdn.net/Expert/topic/3213/3213845.xml?temp=.6516382 这里我发过。
第六个问题就是第二个问题的部分代码，我没看懂，而且也感觉那部分有问题，所以单独拿出来问问而且全部代码稍有点长，担心高手懒的看完。。楼上说可以把image寄宿在stringgrid上。麻烦问一下怎么实现。
书上写着
var
MS：=TMemoryStatus；
begin
。。end
这个TMemoryStatus是什么了？ 前面也没有定义过。而且我也看不到关于它的帮助信息
var
MS：TMemoryStatus
这里MS总是不能用。为什么？