測試文 |
|
尚未結案
|
|
benq915
一般會員   發表：1 回覆：0 積分：0 註冊：2012-10-23 發送簡訊給我 |
|
|
李鉬
一般會員 發表：0 回覆：1 積分：0 註冊：2012-12-05 發送簡訊給我 |
|
|
Brady_Chen
一般會員 發表：6 回覆：14 積分：9 註冊：2013-02-07 發送簡訊給我 |
[code cpp]
void __fastcall TForm1::Button2Click(TObject *Sender) { int chkcol=0; TCheckBox **cbox; //宣告一個指標是屬於CheckBox cbox = new TCheckBox*[data1c]; //一次要建立 (data1c) 個CheckBox，做記憶體配置 for(int j=0; j { cbox[j] = new TCheckBox(Form2); //記憶體配置 cbox[j]->Caption = (*(*(data) j) " , " *(*(data 2) j)); //指定CheckBox的Caption cbox[j]->Parent=Form2; //指定CheckBox的Parent cbox[j]->Name = AnsiString("CheckBox") IntToStr(j); //指定CheckBox的Name cbox[j]->Width = 115; //指定CheckBox的寬度 cbox[j]->Height = 15; //指定CheckBox的高度 cbox[j]->Checked = false; //設定CheckBox的Checked參數 if(j >= 10 10*chkcol) {chkcol ;} cbox[j]->Left = 50 150*chkcol; //指定CheckBox的位置 cbox[j]->Top = 50 2*j*(cbox[j]->Height)-300*chkcol; //指定CheckBox的位置 } Form2->Show(); Form1->Hide(); } |
|
Brady_Chen
一般會員 發表：6 回覆：14 積分：9 註冊：2013-02-07 發送簡訊給我 |
|
|
Brady_Chen
一般會員 發表：6 回覆：14 積分：9 註冊：2013-02-07 發送簡訊給我 |
[code cpp]
cbox = new TCheckBox*[data1c]; //一次要建立 (data1c) 個CheckBox，做記憶體配置 ,(data1c)自行改成你的變數 for(int j=0; j cbox[j] = new TCheckBox(Form1); //記憶體配置 cbox[j]->Caption = (*(*(data) j) " , " *(*(data 2) j)); //指定CheckBox的Caption cbox[j]->Parent=Form1; //指定CheckBox的Parent cbox[j]->Name = AnsiString("CheckBox") IntToStr(j); //指定CheckBox的Name cbox[j]->Width = 115; //指定CheckBox的寬度 cbox[j]->Height = 15; //指定CheckBox的高度 cbox[j]->Checked = false; //設定CheckBox的Checked參數 if(j >= 10 10*chkcol) {chkcol ;} cbox[j]->Left = 50 150*chkcol; //指定CheckBox的位置 cbox[j]->Top = 50 2*j*(cbox[j]->Height)-300*chkcol; //指定CheckBox的位置 }
編輯記錄
Brady_Chen 重新編輯於 2013-02-21 00:06:51， 註解 無‧
Brady_Chen 重新編輯於 2013-02-21 00:07:19， 註解 無‧ Brady_Chen 重新編輯於 2013-02-21 00:07:45， 註解 無‧ |
|
Brady_Chen
一般會員 發表：6 回覆：14 積分：9 註冊：2013-02-07 發送簡訊給我 |
[#]
//--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; TStringList *Lst = new TStringList; AnsiString Ls; int MouseRow; int MouseCol; int copy=0; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect) { MouseRow = ARow; // 這是用來記錄 目前滑鼠在 StringGrid 哪一列 MouseCol = ACol; // 這是用來記錄 目前滑鼠在 StringGrid 哪一行 } //--------------------------------------------------------------------------- void __fastcall TForm1::StringGrid1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { int copycount=0; if(Shift.Contains(ssCtrl) && Key == 86) { for(int i = 0; i < Clipboard()->FormatCount;i ) { if(Clipboard()-> GetAsHandle(Clipboard()-> Formats[i])) //剪貼簿有內容 { RichEdit1->PasteFromClipboard(); for(int j=MouseRow; j { Ls = RichEdit1->Lines->Strings[j-MouseRow]; Lst->Delimiter = '/t'; Lst->DelimitedText = Ls; RichEdit2->Lines = Lst; StringGrid1->Cells[MouseCol][j]=Lst->Strings[0]; } MouseRow=0; MouseCol=0; RichEdit1->Clear(); RichEdit2->Clear(); // Clipboard()->Clear(); break; } } } } //---------------------------------------------------------------------------
編輯記錄
Brady_Chen 重新編輯於 2013-03-07 09:43:56， 註解 無‧
|
發表時間：2012-10-23 14:37:57
IP:120.107.xxx.xxx 訂閱
系統時間：2025-04-03 23:42:47
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |