procedure TfrmClsM2.FormResize(Sender: TObject); begin dbgrid1.Width:=frmclsm2.Width-155; panel1.Width:=dbgrid1.Width; dbgrid1.Height:=frmclsm2.Height-53; end;
procedure TfrmClsM2.FormResize(Sender: TObject); begin if frmclsm2.Width-155 > 110 then dbgrid1.Width:=frmclsm2.Width-155; panel1.Width:=dbgrid1.Width; if frmclsm2.Height-53 > 0 then dbgrid1.Height:=frmclsm2.Height-53; end;
begin
dbgrid1.Width:=frmclsm2.Width-155;
panel1.Width:=dbgrid1.Width;
dbgrid1.Height:=frmclsm2.Height-53;
end;
begin
if frmclsm2.Width-155 > 110 then
dbgrid1.Width:=frmclsm2.Width-155;
panel1.Width:=dbgrid1.Width;
if frmclsm2.Height-53 > 0 then
dbgrid1.Height:=frmclsm2.Height-53;
end;