DELPHI DBGRID 设定COLUMNS列宽度

最新推荐文章于 2020-09-12 17:24:06 发布

cuiweigk19423

最新推荐文章于 2020-09-12 17:24:06 发布

阅读量1k

点赞数

procedure Tfrm_inv_cmp_wip3.SearchBtnClick(Sender: TObject);
var
i:integer;
begin
Screen.Cursor:=crSQLWait; //鼠標變成漏鬥。
dmmrp_c.CD_temp.Close;
dmmrp_c.CD_Temp.CommandText:=' exec p_inv_cmp_wip ' + quotedStr(trim(edit1.Text));
dmmrp_c.CD_Temp.Open;
Screen.Cursor:=crDefault;

for i:=0 to dbgrid1.Columns.Count-1 do
begin //設定DBGRID的列寬,固定寬度為80。
dbgrid1.Columns.Items[i].Width :=80 ;
end;

end;

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/729024/viewspace-1040973/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/729024/viewspace-1040973/