radiogroup元件中與CLIENTDATASET的對映再open

發文回覆瀏覽次數：946

推到 Plurk!

推到 Facebook!

radiogroup元件中與CLIENTDATASET的對映再open

答題得分者是：max5020

nokia2005
一般會員

發表：27
回覆：18
積分：9
註冊：2006-12-26

發送簡訊給我

#1 引用回覆回覆

發表時間：2008-05-07 14:01:10

IP:220.228.xxx.xxx 訂閱

請問我想在我的FORM內把所有有關TCLIENTDATASET的名稱加到radiogroup元件中當我點了Radiogroup那麼會對映到CLIENTDATASET元件而且會自動OPEN有沒有可能這樣做成呢感恩

max5020
資深會員

發表：29
回覆：277
積分：321
註冊：2003-06-04

發送簡訊給我

#2 引用回覆回覆

發表時間：2008-05-07 18:38:26

IP:59.120.xxx.xxx 訂閱

[code delphi]

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
cs: TStrings;
begin
cs:= TStringList.Create;
cs.Clear;
RadioGroup1.Items.Clear;
for i := 0 to ComponentCount - 1 do
begin
if Components[i].ClassName='TClientDataSet' then
begin
cs.Add(Components[i].Name);
RadioGroup1.Items.Add(Components[i].Name);
end;
end;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
var cs: TClientDataSet;
begin
cs:= TClientDataSet(FindComponent(cs[RadioGroup1.ItemIndex]));
cs.Active:= true
end;

[/code]

系統時間：2024-04-24 10:18:42

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！