請教各位大俠如何獲取delphi程式所有窗體的Caption屬性至臨時表中，
如:
窗體Caption屬性：
F_USER_RIGHT(權限分配)
F_USER (使用者管理)
F_rec_prn (應收賬款明細)

獲取至臨時表中
字段：Menu_id menu_name
獲取為： M_USER_RIGHT 權限分配
獲取為： M_USER 使用者管理
獲取為： M_rec_prn 應收賬款明細
請問如何實現，謝謝！

編輯記錄

您好,

有趣的題目
請試一下(我只找出兩個字串 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 (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

非常感謝st33chen的熱心和幫助，
已經很接近我想要的了，
還有一點想請教一下，
我想獲取窗體Caption屬性中括號部份的內容
F_USER_RIGHT(權限分配)
F_USER (使用者管理)
而不是全部內容，
請問要如何處理，謝謝！

您好,
用 字串 處理, 假設抓到的 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 (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

問題已解決，
再次感謝st33chen！！！