獲取delphi程式所有窗體的Caption屬性 |
答題得分者是:st33chen
|
lzkevin
一般會員 發表:13 回覆:14 積分:5 註冊:2008-07-28 發送簡訊給我 |
請教各位大俠如何獲取delphi程式所有窗體的Caption屬性至臨時表中,
如: 窗體Caption屬性: F_USER_RIGHT(權限分配) F_USER (使用者管理) F_rec_prn (應收賬款明細) 獲取至臨時表中 字段:Menu_id menu_name 獲取為: M_USER_RIGHT 權限分配 獲取為: M_USER 使用者管理 獲取為: M_rec_prn 應收賬款明細 請問如何實現,謝謝! 編輯記錄
lzkevin 重新編輯於 2008-11-11 11:14:04, 註解 無‧
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
有趣的題目 請試一下(我只找出兩個字串 fm_id, fm_cap, 如何存請自行處理) procedure TForm1.Button1Click(Sender: TObject); var ii : integer; mycon : tcomponent; fm_id, fm_cap : string; begin for ii:= 0 to Application.ComponentCount-1 do begin mycon := application.Components[ii]; if mycon is tform then begin fm_id := mycon.Name; fm_cap := (mycon as tform).Caption; showmessage(fm_id '-->' fm_cap); end; end; end; 參考一下 ===================引 用 lzkevin 文 章=================== 請教各位大俠如何獲取delphi程式所有窗體的Caption屬性至臨時表中, 如: 窗體Caption屬性: F_USER_RIGHT(權限分配) F_USER (使用者管理) F_rec_prn (應收賬款明細) 獲取至臨時表中 字段:Menu_id menu_name 獲取為: M_USER_RIGHT 權限分配 獲取為: M_USER 使用者管理 獲取為: M_rec_prn 應收賬款明細 請問如何實現,謝謝!
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
lzkevin
一般會員 發表:13 回覆:14 積分:5 註冊:2008-07-28 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
您好,
用 字串 處理, 假設抓到的 caption 放在 fm_cap var ii : integer; ii := pos('(', fm_cap); fm_cap := copy(fm_cap, ii 1, length(fm_cap)); // 取 ( 之後的子字串 fm_cap := copy(fm_cap, 1, length(fm_cap)-1); // 取 ) 之前的子字串, 假設 ) 為最後一碼 ===================引 用 lzkevin 文 章=================== 非常感謝st33chen的熱心和幫助, 已經很接近我想要的了, 還有一點想請教一下, 我想獲取窗體Caption屬性中括號部份的內容 F_USER_RIGHT(權限分配) F_USER (使用者管理) 而不是全部內容, 請問要如何處理,謝謝!
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
lzkevin
一般會員 發表:13 回覆:14 積分:5 註冊:2008-07-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |