label沒有handle ,我想讓label有handle,不知有無辦法呢 freshwang54上

為什麼要讓 Label 有 handle 呢？ 用 StaticText 就有 handle 了 加油喔，喵～

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

對阿 ！ StaticText 跟 Label 是同一個東西喔 ！ 只是 StaticText 多了一個 Handle 恩 多看看 Delphi 的 Help ，裡面還是也很多重要的資訊，書上沒有的喔 !

兩位前輩 我想要一個有透明的handle元件,所以才想要利用label加handle statictext因為沒有transparent的屬性,所以沒法利用,請前輩指點 有何其他方法?

那就自己寫阿 看是要讓 StaticText 模仿 Label 可以透明 還是要讓 Label 模仿 StaticText 有 Handle 都可以 最簡單你可以自己宣告 TMyLabel = class(TLabel) private { Private declarations } public { Public declarations } TW: TWinControl; end; 然後使用 TW.Handle 來當你要的 Handle (Remember to create TW) 如果你要元件，那就寫個元件加入就好了 !

前輩好 昨天依前輩的提示試了許久 還試不出來 可能是功力差多了 可否煩請前輩舉例 謝謝 freshwang54

其實寫元件蠻有挑戰性的，請大家沒事多寫寫 有益身體健康，哈哈........ 幫你寫了一個DEMO 元件，有handle,能show字，會透明 你看看是不是你要的 ==================================================== unit Demo; interface uses SysUtils, Classes, Controls,graphics,Windows; type TDemo = class(TCustomcontrol) private FText:string; protected { Protected declarations } public constructor Create(AOwner: TComponent); override; procedure CreateParams(var Params: TCreateParams); override; procedure Paint; override; published Property text:String read Ftext write FText; end; procedure Register; implementation procedure Register; begin RegisterComponents('Standard', [TDemo]); end; { TDemo } constructor TDemo.Create(AOwner: TComponent); begin inherited Create(AOwner); ControlStyle :=ControlStyle-[csOpaque]; FText:='DEMO'; end; procedure TDemo.CreateParams(var Params: TCreateParams); begin inherited CreateParams(params); with Params do begin ExStyle := ExStyle or WS_EX_TRANSPARENT; end; end; procedure TDemo.Paint; var mRect:TRect; begin mRect:=Canvas.clipRect; Canvas.Brush.Style:=bsClear; DrawText(Canvas.Handle, PChar(Text), -1, //¦r¤¸Á`¼Æ mRect, DT_LEFT or DT_VCENTER or DT_SINGLELINE); end; end.

label是基于TGraphicControl的，StaticText是TWinControl的。。。label当然没有handle的了，自己写吧：）

iamjsn前輩好 demo測試的結果不錯 謝謝 只是還有一個問題 demo元件在移動時並沒有透明 它在停止時才能顯現在其下方物件的影像 如果想要在移動時亦能有透明功能 試了許久都試不出來 該如何作呢 謝謝 freshwang