Question

关于delphi7中dbgrid的问题

怎么实现双击最大化，再双击一下恢复正常状态，然后怎么判断这两个状态，根据状态的不同各列占的宽度不同

Answer 1

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试了，是可以的，你可以试下，如果还有问题再问我了，呵呵

Answer 2

var
F正常状态 : boolean;
procedure btn_双击Click() ;
begin
if Not F正常状态 then
Set正常尺寸();
F正常状态:= true; //切换为正常状态标示
end
else begin
Set最大化();
F正常状态 := false;
end;

追问

你这是什么语言.............

追答

这是伪代码……。仿delphi的