請教TAdvStringGrid內放radio的用法 |
|
尚未結案
|
|
yoyo12345
一般會員   發表：33 回覆：77 積分：22 註冊：2003-03-19 發送簡訊給我 |
|
|
sanhang
一般會員 發表：12 回覆：25 積分：17 註冊：2002-08-31 發送簡訊給我 |
|
|
yoyo12345
一般會員 發表：33 回覆：77 積分：22 註冊：2003-03-19 發送簡訊給我 |
|
|
Mecer
初階會員  發表：15 回覆：30 積分：29 註冊：2002-10-25 發送簡訊給我 |
引言: 設過，不行耶~procedure TForm1.Button1Click(Sender: TObject); var tmpList : TStringList; begin tmpList := TStringList.Create; tmpList.Add('A'); tmpList.Add('B'); tmpList.Add('C'); tmpList.Add('D'); tmpList.Add('E'); // AdvStringGrid1.AddRadio(1, 1, 0, 4, tmpList); // 上面這一列的意義是：在第一行第一列的儲存格，加入tmpList此TStrings內所有的String，個別的Index是從0~4，也就是A=0, B=1, C=2, D=3, E=4 end; procedure TForm1.Button2Click(Sender: TObject); var RadioIdx: Integer; begin AdvStringGrid1.GetRadioIdx(1, 1, RadioIdx); // 上面這一列的意義是：在第一行第一列的儲存格，取出被點選的Radio Item Index，並存入RadioIdx此變數當中 ShowMessage(IntToStr(RadioIdx)); end; 附帶一點，AdvStringGrid1.SetRadioIdx(1, 1, 0)即是給予Radio Item初始點選的Index值=0 發表人 - mecer 於 2004/02/26 01:23:50 |
|
yoyo12345
一般會員 發表：33 回覆：77 積分：22 註冊：2003-03-19 發送簡訊給我 |
|
|
sanhang
一般會員 發表：12 回覆：25 積分：17 註冊：2002-08-31 發送簡訊給我 |
引言:沿用mecer大大的範例 取值 : procedure TForm1.Button2Click(Sender: TObject); var RadioIdx: Integer; begin AdvStringGrid1.GetRadioIdx(1, 1, RadioIdx); // 上面這一列的意義是：在第一行第一列的儲存格，取出被點選的Radio Item Index，並存入RadioIdx此變數當中 Showmessage((AdvStringGrid1.GetRadioStrings(2,1) as TStringList).Strings[RadioIdx]); end; 發表人 - sanhang 於 2004/02/26 11:09:13引言: 設過，不行耶~procedure TForm1.Button1Click(Sender: TObject); var tmpList : TStringList; begin tmpList := TStringList.Create; tmpList.Add('A'); tmpList.Add('B'); tmpList.Add('C'); tmpList.Add('D'); tmpList.Add('E'); // AdvStringGrid1.AddRadio(1, 1, 0, 4, tmpList); // 上面這一列的意義是：在第一行第一列的儲存格，加入tmpList此TStrings內所有的String，個別的Index是從0~4，也就是A=0, B=1, C=2, D=3, E=4 end; procedure TForm1.Button2Click(Sender: TObject); var RadioIdx: Integer; begin AdvStringGrid1.GetRadioIdx(1, 1, RadioIdx); // 上面這一列的意義是：在第一行第一列的儲存格，取出被點選的Radio Item Index，並存入RadioIdx此變數當中 ShowMessage(IntToStr(RadioIdx)); end; 附帶一點，AdvStringGrid1.SetRadioIdx(1, 1, 0)即是給予Radio Item初始點選的Index值=0 發表人 - mecer 於 2004/02/26 01:23:50 |
|
Mecer
初階會員 發表：15 回覆：30 積分：29 註冊：2002-10-25 發送簡訊給我 |
|
|
yoyo12345
一般會員 發表：33 回覆：77 積分：22 註冊：2003-03-19 發送簡訊給我 |
|
|
yoyo12345
一般會員 發表：33 回覆：77 積分：22 註冊：2003-03-19 發送簡訊給我 |
|
|
Mecer
初階會員 發表：15 回覆：30 積分：29 註冊：2002-10-25 發送簡訊給我 |
|
|
yoyo12345
一般會員 發表：33 回覆：77 積分：22 註冊：2003-03-19 發送簡訊給我 |
|
|
Mecer
初階會員 發表：15 回覆：30 積分：29 註冊：2002-10-25 發送簡訊給我 |
|
|
yoyo12345
一般會員 發表：33 回覆：77 積分：22 註冊：2003-03-19 發送簡訊給我 |
發表時間：2004-02-18 18:22:17
IP:203.69.xxx.xxx 未訂閱
系統時間：2024-05-19 4:49:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |