Form2之checkbox對應到Form1之Edit問題 |
|
尚未結案
|
|
poemkevin
初階會員   發表：26 回覆：77 積分：30 註冊：2002-10-19 發送簡訊給我 |
如果
Form2有checkbox元件20個
Form1有edit元件20個 1. 在Form2中的checkbox有打勾的地方,
例如checkbox1.checked:=True~check12.checked:=True
checkbox13~20.checked:=False;
2. 而Form1的edit1.text:=2,3,4,5,6,7,8,9,10,11,12
edit2.text:=1,3,4,5,6,7,8,9,10,11,12
edit3.text:=1,2,4,5,6,7,8,9,10,11,12
依此類推到edit12.text:=1,2,3,4,5,6,7,8,9,10,11
而edit13~edit20則為空白
小弟是有寫好這部份程式碼, 可以動作正確
程式碼如下 var
ckbox: TCheckBox;
i: integer;
s, s1, ss1, sss1: string;
begin
s := '';
TCheckBox(Form2.FindComponent('ceckkbox' inttostr(check_Button_id1))).Checked := true;
for i := 1 to 20 do
begin
ckbox := frmsetkey.FindComponent('ckeckbox' inttostr(i)) as TCheckBox; if ckbox.Checked = true then
s := s inttostr(i) ',';
end;
s1 := '';
s1 := trim(s);
ss1 := trim(s); repeat
sss1 := '';
ss1 := '';
ss1 := trim(s);
sss1 := copy(s1, 1, pos(',', s1) - 1);
delete(ss1, pos(sss1, ss1), length(sss1) 1);
delete(ss1, length(ss1), 1);
TEdit(Form1.FindComponent('edtkey' trim(sss1) )).Text := ss1;
delete(s1, 1, pos(',', s1));
until (s1 = '') or (s1 = null);
end; 因為小弟是初學者寫的程式有點笨拙,
想請教前輩們是否有寫過類似的程式, 是否有比較好的方法可以達到上述的功能?
謝謝! ===========================
沉思, 再沉思! 學習, 再學習!
生活隨喜, 簡單自在^^
===========================
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
poemkevin
初階會員 發表：26 回覆：77 積分：30 註冊：2002-10-19 發送簡訊給我 |
引言: TCheckBox 與 TEdit 元件都有個 Tag 屬性可用 比方說 CheckBox1 的 Tag 值就設為 1, CheckBox2.Tag 設為 2, ... 然後 Edit1 的 Tag 值設為 1, Edit2.Tag 設為 2, ... 試試看會不會比較好用.謝謝hagar大大的回應 小弟沒用過tag, 找時間再試看看 =========================== 沉思, 再沉思! 學習, 再學習! 生活隨喜, 簡單自在^^ =========================== |
發表時間：2004-09-14 16:07:14
IP:210.202.xxx.xxx 未訂閱
系統時間：2024-05-16 4:19:25
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |