Form的OnResize事件。
procedure TForm1.FormResize(Sender: TObject);
begin
DBGrid1.Width := Width - 8;
DBGrid1.Height := Height -48;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
DBGrid1.Width := Width - 8;
DBGrid1.Height := Height -48;
end;
没有窗体大小改变 就可以触发
如果需要这样的效果的话
DBGrid1.Width := Width - 8;
DBGrid1.Height := Height -48;你可以用Panel填充一下旁边的48嘛明白否~
界面你可以自己调一下
procedure onresize
不行
dbgrid1.width:=width-8;
dbgrid1.height:=height-48;