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

memo 的背景透明

答題得分者是:OneChen
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2014-10-04 17:34:30 IP:118.169.xxx.xxx 未訂閱
請問各位:

有沒有參考資料可以設定 memo 呈現背景透明, 但字仍維持不透明,
我所能看到的是將 memo 設定透明度而已, 但這會造成字體連帶也變淡了, 謝謝!
OneChen
初階會員


發表:7
回覆:33
積分:43
註冊:2014-03-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2014-10-06 08:10:38 IP:175.181.xxx.xxx 訂閱
 可以運用 OnApplyStyleLookup 事件來修改 Memo 的 Style 就能達到這個效果,見下例:

procedure TForm1.Memo1ApplyStyleLookup(Sender: TObject);
var Obj: TFmxObject;
begin
Obj := Memo1.FindStyleResource('background');
if Obj <> nil then
TControl(Obj).Opacity := 0.8;
end;
OneChen
初階會員


發表:7
回覆:33
積分:43
註冊:2014-03-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2014-10-06 08:16:07 IP:175.181.xxx.xxx 訂閱
 另外這篇也能參考:

改变 TMemo 的背景颜色 (Firemonkey)
http://www.cnblogs.com/onechen/p/3688226.html

P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2014-10-06 15:18:48 IP:59.120.xxx.xxx 未訂閱
已ok, 感謝提供資料, 所提供另外的一篇, 之前我有看過, 後來要找都找不到
系統時間:2024-04-27 11:23:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!