全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:807
推到 Plurk!
推到 Facebook!

XE7 binding column to tgrid at run time

缺席
chinson
一般會員


發表:3
回覆:3
積分:1
註冊:2014-08-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2015-05-18 15:50:03 IP:61.93.xxx.xxx 訂閱
我需要add某column to tgrid 並設style為checkcolumn. 在live binding designer 輕鬆加到. 請問如何add column to grid at run time? (因gid 會顯示不同table/column). 謝謝
------
Henry
chinson
一般會員


發表:3
回覆:3
積分:1
註冊:2014-08-22

發送簡訊給我
#2 引用回覆 回覆 發表時間:2015-05-20 18:16:05 IP:61.93.xxx.xxx 訂閱
已在網上找到方法, 以下分享.

LinkGridToDataSourceBindSource:= TLinkGridToDataSource.Create(BindingsList1);
LinkGridToDataSourceBindSource.DataSource:=BindSourceDB1;
LinkGridToDataSourceBindSource.GridControl:=Grid1;
with LinkGridToDataSourceBindSource.Columns.Add do
begin
MemberName:='Field1';
ColumnStyle:='CheckColumn';
CustomFormat:='ToStr(%S)<>"0"';
CustomParse:='IfThen(ToStr(%S)="True",1,0)';
ReadOnly:=false;
end;
with LinkGridToDataSourceBindSource.Columns.Add do
begin
MemberName:='Field2';
ReadOnly:=false;
end;
LinkGridToDataSourceBindSource.Active:=true;

謝謝
------
Henry
系統時間:2017-12-14 6:16:05
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!