TDataModule 如何新增提示時的元件? |
尚未結案
|
bcshahuo
一般會員 發表:28 回覆:28 積分:11 註冊:2005-01-25 發送簡訊給我 |
一般假設在datamodule(datam1)下有元件clientdataset(custom) 那在datam1.(當"點"時,就會出現一堆元件和屬性讓你選,即可選
擇custom,然後按enter,則出現datam1.custom) 假設,今天我是用宣告的方式如 Procedure Control(Module: TDataModule);
var
NAME: TDataset; 我有辦法做到 module.name.active ==>這樣的做法嗎? 因為我主要是 module和name,都是可以用代入的方式改變 所以我想,如果把module裡的元件,自己加入"name",讓提示時看的到的話
是不是就ok了, 請教各位大大。 我所說的"提示"如附圖,謝謝。 如果我這種作法不行,還有什麼做法可以使他們當成變數般的,以代入
方式處理,謝謝^^。
|
rowater
一般會員 發表:11 回覆:19 積分:6 註冊:2004-08-30 發送簡訊給我 |
我想你是要這樣的效果吧 在專案中加入一個 DataModule2 裡面放一個 Clientdataset1 procedure TForm1.Control(Module, Datasets: String);
var
DM :TDataModule2;
begin
DM := TDataModule2(Application.FindComponent(Module));
TClientDataset(Dm.FindComponent(Datasets)).Active := true;
end; 呼叫使用 :
Control('DataModule2','Clientdataset1');
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |