線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1015
推到 Plurk!
推到 Facebook!

如何使Label->Caption 的字不要消失

答題得分者是:taishyang
techtech
一般會員


發表:3
回覆:3
積分:1
註冊:2003-09-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-09-08 14:09:55 IP:211.76.xxx.xxx 未訂閱
在Form上有放一個Label,若是我在Form上畫一個矩形(Form->Canvas->Rectangle(X,X,X,X`)),如果矩形的位置在Label上,則Label的文字會被蓋過,請問如何能在我畫圖時,Form上的元件狀態不變呢!謝謝
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-09-08 14:35:57 IP:210.68.xxx.xxx 未訂閱
您好: 試試在前面加上
Form->Canvas->Brush->Style = bsClear;
順心
techtech
一般會員


發表:3
回覆:3
積分:1
註冊:2003-09-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-09-08 15:50:59 IP:211.76.xxx.xxx 未訂閱
謝謝你的回答。我的目的是要將Rectangle內的Form及Label的底色改變,但是Label的字不變,若是用bsClear的樣式,則底色還是沒變。是否還有其他方法?謝謝!
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-09-08 16:31:04 IP:210.68.xxx.xxx 未訂閱
您好: 試試下面的程式碼
   
   Form1->Canvas->Brush->Color = clBlue;      //假設底色是藍色
   Form1->Canvas->Rectangle(0, 0, 400, 200);  
   Label1->Color = clBlue;
   Label1->Repaint();
順心
techtech
一般會員


發表:3
回覆:3
積分:1
註冊:2003-09-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-09-08 16:47:37 IP:211.76.xxx.xxx 未訂閱
感謝taishyang的回答,我已經知道要怎麼做了。
系統時間:2024-05-09 14:20:54
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!