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

Image與RichEdit如何透明

尚未結案
ymes9106
一般會員


發表:1
回覆:1
積分:0
註冊:2011-11-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-11-02 20:51:44 IP:163.17.xxx.xxx 訂閱
 各位好
小弟想要在Image上面使用Canvas在上面畫東西或寫字
但每次一畫上去Image就會出現白底
小弟的程式碼如下
Image1->Canvas->TextOutA(20,20,"test");
Image1->Transparent=true;
使用了Transparent也是沒有用 還是會出現白底(如附檔圖片那樣)
請問我哪裡寫錯了呢? 要如何修改才能讓底整個透明

另外問一下RichEdit元件的底能否設成透明呢?
謝謝大家


附加檔案:4eb13ce08022d_問題.JPG
brook
資深會員


發表:56
回覆:321
積分:365
註冊:2002-07-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-11-07 10:37:47 IP:60.251.xxx.xxx 訂閱
我用bcb5+xp測你的程式是ok的.
要不然你2行交換看看,或直接在屬性就先把Transparent設成true.
brook
資深會員


發表:56
回覆:321
積分:365
註冊:2002-07-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-11-07 10:57:32 IP:60.251.xxx.xxx 訂閱
RichEdit設透明

[code cpp]
請在此區域輸入程式碼
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RichEdit1->Brush->Style=bsClear;
SetWindowLong(RichEdit1->Handle, GWL_EXSTYLE, WS_EX_TRANSPARENT);
RichEdit1->Visible = false;
RichEdit1->Visible = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
RichEdit1->Visible = false;
RichEdit1->Visible = true;
RichEdit1->SetFocus();
}
[/code]

ymes9106
一般會員


發表:1
回覆:1
積分:0
註冊:2011-11-02

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-11-07 11:46:29 IP:114.46.xxx.xxx 訂閱
謝謝brook大喔~~~
其實我覺得很詭異
因為我在桌電上用BCB6用就OK
一樣的程式完全沒改 甚至連檔案都沒打開 (我直接開執行檔)
在筆電上就是沒法透明 可能是電腦問題


RichEdit透明的語法謝囉^^

===================引 用 brook 文 章===================
我用bcb5 xp測你的程式是ok的.
要不然你2行交換看看,或直接在屬性就先把Transparent設成true.
系統時間:2017-10-23 8:57:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!