如何讓stringgrid的文字為多行 |
|
答題得分者是：andersonhsieh
|
|
kan0515
中階會員   發表：56 回覆：120 積分：50 註冊：2002-06-24 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
kan0515
中階會員 發表：56 回覆：120 積分：50 註冊：2002-06-24 發送簡訊給我 |
|
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
給你一個sample看看
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
try
case (StrToInt(StringGrid1.Cells[ACol, ARow]) mod 2) of
0: StringGrid1.Canvas.Font.Color := clRed;
else StringGrid1.Canvas.Font.Color := clBlue;
end;
StringGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
except
end;
end; procedure TForm1.Button1Click(Sender: TObject);
var index: Integer;
begin
for index := 1 to StringGrid1.RowCount - 1 do
begin
StringGrid1.Cells[1, index] := IntToStr(index);
end;
end; @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@ |
|
kgt
高階會員 發表：17 回覆：308 積分：165 註冊：2002-03-13 發送簡訊給我 |
發表時間：2002-08-19 17:34:19
IP:211.23.xxx.xxx 未訂閱
系統時間：2024-11-23 10:28:59
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |