全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1699
推到 Plurk!
推到 Facebook!

測試文

尚未結案
benq915
一般會員


發表:1
回覆:0
積分:0
註冊:2012-10-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-10-23 14:37:57 IP:120.107.xxx.xxx 訂閱
者只是一篇測試而已
李鉬
一般會員


發表:0
回覆:1
積分:0
註冊:2012-12-05

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-12-05 21:20:26 IP:111.225.xxx.xxx 訂閱
程式碼區測試
Brady_Chen
一般會員


發表:6
回覆:14
積分:9
註冊:2013-02-07

發送簡訊給我
#3 引用回覆 回覆 發表時間:2013-02-20 08:56:41 IP:122.147.xxx.xxx 訂閱
[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();
}
[/code]
Brady_Chen
一般會員


發表:6
回覆:14
積分:9
註冊:2013-02-07

發送簡訊給我
#4 引用回覆 回覆 發表時間:2013-02-21 15:05:12 IP:122.147.xxx.xxx 訂閱

cbox = new TCheckBox*[data1c]; //一次要建立 (data1c) 個CheckBox,做記憶體配置 ,(data1c)自行改成你的變數 for(int j=0; j
Brady_Chen
一般會員


發表:6
回覆:14
積分:9
註冊:2013-02-07

發送簡訊給我
#5 引用回覆 回覆 發表時間:2013-02-21 15:06:18 IP:122.147.xxx.xxx 訂閱
[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的位置
}
[/code]
編輯記錄
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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2013-03-07 09:43:09 IP:218.210.xxx.xxx 訂閱
[#]
//---------------------------------------------------------------------------
#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; jLines->Count); 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, 註解 無‧
系統時間:2017-12-16 13:13:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!