想要在 Tlabel 中顯示數字,但希望全部要右靠,要如何做? |
|
|
|
HANGTEN
一般會員   發表：12 回覆：15 積分：5 註冊：2002-07-20 發送簡訊給我 |
|
|
ccchen
版主  發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
HANGTEN
一般會員 發表：12 回覆：15 積分：5 註冊：2002-07-20 發送簡訊給我 |
|
|
Miles
尊榮會員 發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
引言: 那如果是TstringGrid中的欄位? 我使用stringgrid來顯示數字用? 新手上路,感激不盡!Hi try this 在StringGrid的OnDrawCell Event裡 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Left : integer; begin Left := Rect.Right - StringGrid1.Canvas.TextWidth(StringGrid1.Cells[ACol, ARow])-2; StringGrid1.Canvas.TextRect(Rect, Left, Rect.Top 1,StringGrid1.Cells[ACol, ARow]); end;我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
|
Paicaso
中階會員 發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
|
|
Miles
尊榮會員 發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
Hello Paicaso 抱歉最近比較忙, 沒注意到:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); 先計算我們的輸出(文字)要從哪裡開始填入, 舉例來說若那個Cell長200點, 我們的文字共長150點, 則會從第50點開始填入 Left := Rect.Right - StringGrid1.Canvas.TextWidth(StringGrid1.Cells[ACol, ARow])-2; 填入我們的字串 StringGrid1.Canvas.TextRect(Rect, Left, Rect.Top 1,StringGrid1.Cells[ACol, ARow]); end;若您要想直接指定某行或某列, 可以善用ACol, ARow這兩個變數去判斷, 例如:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var Left : integer;
begin
if ACol = 3 then begin
Left := Rect.Right - StringGrid1.Canvas.TextWidth(StringGrid1.Cells[ACol, ARow])-2;
StringGrid1.Canvas.TextRect(Rect, Left, Rect.Top 1,StringGrid1.Cells[ACol, ARow]);
end;
end;
Good Luck 我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
發表時間：2002-11-20 19:02:54
IP:203.67.xxx.xxx 未訂閱
系統時間：2024-07-07 22:08:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |