如何在TStringGrid中的格子顯示換行符號 |
|
尚未結案
|
|
pasphi
一般會員   發表：16 回覆：12 積分：5 註冊：2002-11-29 發送簡訊給我 |
|
|
qoo1234
版主  發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
|
|
pasphi
一般會員 發表：16 回覆：12 積分：5 註冊：2002-11-29 發送簡訊給我 |
|
|
qoo1234
版主 發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
|
|
pasphi
一般會員 發表：16 回覆：12 積分：5 註冊：2002-11-29 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
var
Texto :string;
Indice : integer;
Posicion : integer;
begin
if Pos(#13, StringGrid1.Cells[Col,Row]) <> 0 then
begin
Texto := StringGrid1.Cells[Col,Row] #13;
StringGrid1.Canvas.FillRect(Rect);
Indice := 0;
repeat
Posicion := Pos(#13, Texto); with StringGrid1.Canvas do
TextOut( Rect.left,
Rect.Top (Indice*TextHeight(Copy(Texto, 1, Posicion-1))),
Copy(Texto, 1, Posicion-1));
Inc(Indice);
Delete(Texto, 1, Posicion);
until Posicion = 0;
end;
end;
---
將進酒 杯莫停
|
發表時間：2004-02-15 21:42:54
IP:202.175.xxx.xxx 未訂閱
網海無涯，學無止境!
系統時間：2024-07-06 1:52:50
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |