詢問TStringGrid的相關問題 |
|
答題得分者是：RaynorPao
|
|
kenbcb
中階會員   發表：171 回覆：129 積分：60 註冊：2003-07-15 發送簡訊給我 |
|
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 請問各位: 我設一個3*3的陣列,要把內容讀入TStringGrid中(也設好3*3),而陣列的內容是a,b,c其中一個; 當讀到a時,其cell為紅色並罝中寫出a 當讀到b時,其cell為綠色並罝中寫出b 當讀到c時,其cell為黃色並罝中寫出c 並mouse選其中一個cell按二下出現一個訊息框 例: a b c 紅 綠 黃 b a b => 綠 紅 綠 c b a 黃 綠 紅 請問各位先進,誰能夠指導, 希望有範例說明,以便了解~ 謝謝!kenbcb 你好: 一直看不太懂你在問什麼?? 所以小弟我就用猜的了< > 試試以下的範例程式碼，看看結果是否就是你所需要的呢??< >
char gz[3][3]={{'a', 'b', 'c'}, {'b', 'a', 'b'}, {'c', 'b', 'a'}};
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
if(ACol>0 && ARow>0)
{
switch(gz[ARow-1][ACol-1])
{
case 'a':
StringGrid1->Canvas->Brush->Color=clRed;
break;
case 'b':
StringGrid1->Canvas->Brush->Color=clGreen;
break;
case 'c':
StringGrid1->Canvas->Brush->Color=clYellow;
break;
}
StringGrid1->Canvas->FillRect(Rect);
RECT R=RECT(Rect);
UINT format=DT_CENTER | DT_VCENTER | DT_SINGLELINE;
DrawText(StringGrid1->Canvas->Handle, &gz[ARow-1][ACol-1], 1, &R, format);
}
}
-- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
發表時間：2003-08-06 13:43:12
IP:61.222.xxx.xxx 未訂閱
系統時間：2024-04-29 13:15:21
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |