如何讓label有handle |
尚未結案
|
freshwang54
一般會員 ![]() ![]() 發表:3 回覆:6 積分:1 註冊:2003-02-28 發送簡訊給我 |
|
sryang
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:39 回覆:762 積分:920 註冊:2002-06-27 發送簡訊給我 |
|
syntax
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
|
freshwang54
一般會員 ![]() ![]() 發表:3 回覆:6 積分:1 註冊:2003-02-28 發送簡訊給我 |
|
syntax
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
那就自己寫阿
看是要讓 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
一般會員 ![]() ![]() 發表:3 回覆:6 積分:1 註冊:2003-02-28 發送簡訊給我 |
|
iamjsn
初階會員 ![]() ![]() 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
其實寫元件蠻有挑戰性的,請大家沒事多寫寫
有益身體健康,哈哈........ 幫你寫了一個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.
|
Rocy
一般會員 ![]() ![]() 發表:1 回覆:4 積分:1 註冊:2003-03-13 發送簡訊給我 |
|
freshwang54
一般會員 ![]() ![]() 發表:3 回覆:6 積分:1 註冊:2003-02-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |