关于delphi7中dbgrid的问题

怎么实现双击最大化,再双击一下恢复正常状态,然后怎么判断这两个状态,根据状态的不同各列占的宽度不同... 怎么实现双击最大化,再双击一下恢复正常状态,然后怎么判断这两个状态,根据状态的不同各列占的宽度不同 展开
 我来答
百度网友25f7138
2012-12-17 · TA获得超过113个赞
知道答主
回答量:44
采纳率:0%
帮助的人:59.9万
展开全部
1.,拖一个panel控件,设置align属性为alclient,然后把dbgrid1放置在panel1上面,先随便拖出一个你想要的大小,然后连接好你表格需要显示的数据。
2.在程序的 implementation部分定义一个StringList,用来存放变化前的dbgrid1的宽,高,上边距,左边距信息,定义如下:
str: TStringList;
3.在dbgrid的onDblClick事件下,编写如下代码:
if DBGrid1.Align = alClient then //判断是否最大
begin
DBGrid1.Align := alCustom;//设置表格为自定义
DBGrid1.Width := StrToInt(str.Strings[0]);//恢复表格的高度为变化前
DBGrid1.Height := StrToInt(str.Strings[1]);
DBGrid1.top := StrToInt(str.Strings[2]);
DBGrid1.Left := StrToInt(str.Strings[3]);
Exit;

end;
if DBGrid1.Align <> alClient then //判断是否最大
begin

str := TStringList.Create;
str.add(inttostr(dbGrid1.Width)); //存放变化前的表格宽度
str.add(inttostr(dbGrid1.Height));//存放高度
str.add(inttostr(dbGrid1.top));//存放上边距
str.add(inttostr(dbGrid1.Left));//存放左边距
DBGrid1.Align := alClient;//设置表格大小为和panel1一样大
Exit;
end;

我刚做了个Demo试了,是可以的,你可以试下,如果还有问题再问我了,呵呵
cy_paul
2012-12-17 · TA获得超过821个赞
知道小有建树答主
回答量:769
采纳率:100%
帮助的人:237万
展开全部
var
F正常状态 : boolean;
procedure btn_双击Click() ;
begin
if Not F正常状态 then
Set正常尺寸();
F正常状态:= true; //切换为正常状态标示
end
else begin
Set最大化();
F正常状态 := false;
end;
追问
你这是什么语言.............
追答
这是伪代码……。仿delphi的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式