Label 的顯示問題 |
|
答題得分者是：channel
|
|
jch
中階會員   發表：111 回覆：224 積分：66 註冊：2003-12-01 發送簡訊給我 |
小弟開始學習寫DELPHI的程式,目前正學習到LABEL的元件,現在遇到一個問題
小弟在form上放置一個label和三個radiobutton來改變label的內容,
3個radiobutton的程式碼如下
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
label1.Font.size:=18;
label1.caption:='現在大小為' radiobutton1.Caption ;
end; procedure TForm1.RadioButton2Click(Sender: TObject);
begin
label1.Font.size:=14;
label1.caption:='現在大小為' radiobutton2.Caption ;
end; procedure TForm1.RadioButton3Click(Sender: TObject);
begin
label1.Font.size:=12;
label1.caption:='現在大小為 ' radiobutton3.Caption ;
end; 執行後label1秀出的字只有'現在大小為'其餘的部分都不會秀出來,文字的大小有變動,但是把文字的大小設成8時,就一切正常,不知是否label元件上有何屬性需要設定呢??(小弟是使用DELPHI5)麻煩各位前輩指導一下喔!
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
|
|
azurecloud
中階會員 發表：52 回覆：108 積分：92 註冊：2003-09-04 發送簡訊給我 |
Hi, jch 您好：
請改成這樣就可以了：
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
label1.Font.size:=18;
label1.caption:='現在大小為' 十 radiobutton1.Caption 十 ' 在這裡加上一段空白字串 ' ;
end;
這是我在實作做測試出來的，label 元件的長度不會因 caption 變多而自動變長，改其 width 屬性也沒用，只好用最原始的方法囉！希望幫得上忙。 ========================
我要努力向上======================== |
|
channel
尊榮會員 發表：67 回覆：707 積分：854 註冊：2002-05-02 發送簡訊給我 |
引言: 小弟開始學習寫DELPHI的程式,目前正學習到LABEL的元件,現在遇到一個問題 小弟在form上放置一個label和三個radiobutton來改變label的內容, 3個radiobutton的程式碼如下 procedure TForm1.RadioButton1Click(Sender: TObject); begin label1.Font.size:=18; label1.Font.Name := '新細明體'; label1.caption:='現在大小為' radiobutton1.Caption ; end; procedure TForm1.RadioButton2Click(Sender: TObject); begin label1.Font.size:=14; label1.Font.Name := '新細明體'; label1.caption:='現在大小為' radiobutton2.Caption ; end; procedure TForm1.RadioButton3Click(Sender: TObject); begin label1.Font.size:=12; label1.Font.Name := '新細明體'; label1.caption:='現在大小為 ' radiobutton3.Caption ; end; 執行後label1秀出的字只有'現在大小為'其餘的部分都不會秀出來,文字的大小有變動,但是把文字的大小設成8時,就一切正常,不知是否label元件上有何屬性需要設定呢??(小弟是使用DELPHI5)麻煩各位前輩指導一下喔!加入label1.Font.Name := '新細明體';(即上方紅色部份)，試試看… ~小弟淺見，參考看看~
------
~小弟淺見，參考看看~ |
|
jch
中階會員 發表：111 回覆：224 積分：66 註冊：2003-12-01 發送簡訊給我 |
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi: 我猜大概是你的 RadioButton 沒有設 Caption，有就是說 RadioButton.Caption = ''，所以會只顯示出'現在大小為'，你可以將程式碼改為
label1.Font.size:=18; label1.caption:='現在大小為' IntToStr(label1.Font.size);或是去指定各個 RadioButton 的 Caption 屬性
------
Fishman |
發表時間：2003-12-15 12:06:22
IP:61.64.xxx.xxx 未訂閱
系統時間：2024-11-25 4:37:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |