如何使TEdit控件具有Transparent属性 (0分)

web_lance · 2003-05-04

如何使一些不具备Transparent属性的控件（如TEdit,TMaskEdit等）可使用Transparent属性，
或具有透明效果。敬请各位高手指点！
（我试过用Brush，但是它直接透明到桌面，而且还丧失了部分编辑功能）

大富翁WW · 2003-05-04

Form1.TransparentColor := True;
Form1.TransparentColorValue := clRed;
Edit1.Color := clRed;
MaskEdit1.Color := clRed;

web_lance · 2003-05-05

WW，我要的效果是在Image控件上使Edit具有Label的属性Transparent为True时的效果。
可以实现吗？

leafleter · 2003-05-05

呵呵,不行

firstrose · 2003-05-08

这个以前有人问过。继承TLabel，模拟TEdit的功能。

web_lance · 2003-05-10

firstrose, 可否具体一点？

firstrose · 2003-07-13

把以下文本存为html文件。这是一个网页，自己看吧。

<html><TITLE>建立一个透明 Edit 控件</TITLE><table border=0 align=center width='600' class='tblStandard' bgcolor='#666666' cellspacing='1' cellpadding='2'><tr><th bgcolor='#cccc99' colspan='2'>Building a Transparent Edit Control</th></tr><tr><td bgcolor='#ffffff'>Undertitle:</td><td bgcolor='#ffffff'>Transparency made easy</td></tr><tr><td bgcolor='#ffffff'></td></tr><tr><td bgcolor='#ffffff'>Category:</td><td bgcolor='#ffffff'>VCL-General</td></tr><tr><td bgcolor='#ffffff'>Uploader:</td><td bgcolor='#ffffff'>Romeo Lefter</td></tr><tr><td bgcolor='#cccccc' colspan='2'>&nbsp;</td></tr><tr><td bgcolor='#ffffff' valign='top'>Question:</td><td bgcolor='#ffffff'>如何 build a transparent edit control?</td></tr><tr><td bgcolor='#ffffff' valign='top'>Answer:</td><td bgcolor='#ffffff'>&nbsp;&nbsp;Building a transparent edit control can be the cool face of your application. Why? Because your entry forms can look like "paper forms". Adding this cool features for your application can be very easy, as you will see bellow. &nbsp;&nbsp;First of all I want to specify that is not my original code. I have found a transparent edit, listbox, checkbox and memo controls in FusedControls, but the main goal of this library is the flicker. Is impossible for anyone to distribute a applicatin with this controls because the flicker is in supportable. &nbsp;&nbsp;An now, go to work. All we have to do is to overrwide the CreateParams and some common events. In order to resolve the flicker I have decide to let our edit control transparent only when the focus is not on it. So, I have override the DoEnter and DoExit. The entire code is bellow. Just copy, paste in a blank unit and install the component. unit RbsWiredEdit; interface uses &nbsp;&nbsp;Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, &nbsp;&nbsp;StdCtrls; const &nbsp;&nbsp;TWM_RbsInvalidate=WM_USER+1; type &nbsp;&nbsp;TRbsWiredEdit = class(TEdit) &nbsp;&nbsp;private &nbsp;&nbsp;&nbsp;&nbsp;{ Private declarations } &nbsp;&nbsp;&nbsp;&nbsp;procedure RbsInvalidate(var Message:TMessage); message &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;TWM_RbsInvalidate; &nbsp;&nbsp;&nbsp;&nbsp;procedure CNCTLCOLOREDIT(var Message:TWMCTLCOLOREDIT); message &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CN_CTLCOLOREDIT; &nbsp;&nbsp;&nbsp;&nbsp;procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND; &nbsp;&nbsp;&nbsp;&nbsp;procedure WMMove(var Message: TMessage); message WM_MOVE; &nbsp;&nbsp;protected &nbsp;&nbsp;&nbsp;&nbsp;{ Protected declarations } &nbsp;&nbsp;&nbsp;&nbsp;FTransparent: boolean; &nbsp;&nbsp;&nbsp;&nbsp;procedure CreateWnd; override; &nbsp;&nbsp;&nbsp;&nbsp;procedure CreateParams(var Params: TCreateParams); override; &nbsp;&nbsp;&nbsp;&nbsp;procedure DoExit; override; &nbsp;&nbsp;&nbsp;&nbsp;procedure DoEnter; override; &nbsp;&nbsp;public &nbsp;&nbsp;&nbsp;&nbsp;{ Public declarations } &nbsp;&nbsp;&nbsp;&nbsp;constructor Create(AOwner: TComponent); override; &nbsp;&nbsp;&nbsp;&nbsp;procedure Invalidate; override; &nbsp;&nbsp;published &nbsp;&nbsp;&nbsp;&nbsp;{ Published declarations } &nbsp;&nbsp;end; procedure Register; implementation constructor TRbsWiredEdit.Create(AOwner:TComponent); begin inherited create(AOwner); &nbsp;&nbsp; ftransparent:=true; end; procedure TRbsWiredEdit.CreateWnd; begin inherited CreateWnd; &nbsp;&nbsp; if fTransparent then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SetWindowLong(Parent.Handle, GWL_STYLE, &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GetWindowLong(Parent.Handle, GWL_STYLE) and not WS_CLIPCHILDREN); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; end; procedure TRbsWiredEdit.RbsInvalidate(var Message:TMessage); var r:TRect; begin &nbsp;&nbsp;if (Parent&lt;&gt;nil) and FTransparent then &nbsp;&nbsp;&nbsp;&nbsp;begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;r:=ClientRect; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;r.TopLeft:=Parent.ScreenToClient(ClientToScreen(r.TopLeft)); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;r.BottomRight:=Parent.ScreenToClient(ClientToScreen(r.BottomRight)); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RedrawWindow(Handle,nil,0,RDW_FRAME+RDW_INVALIDATE); &nbsp;&nbsp;&nbsp;&nbsp;end; end; procedure TRbsWiredEdit.CNCTLCOLOREDIT(var Message:TWMCTLCOLOREDIT); begin &nbsp;&nbsp;if FTransparent then &nbsp;&nbsp; with Message do &nbsp;&nbsp;&nbsp;&nbsp;begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SetBkMode(ChildDC,Windows.TRANSPARENT); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result:=GetStockObject(HOLLOW_BRUSH) &nbsp;&nbsp;&nbsp;&nbsp;end &nbsp;&nbsp; else inherited; end; procedure TRbsWiredEdit.WMEraseBkgnd(var Message:TWMERASEBKGND); begin &nbsp;&nbsp;if FTransparent and not (csDesigning in ComponentState) then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PostMessage(Handle,TWM_RbsInvalidate,0,0) &nbsp;&nbsp;else inherited; end; procedure TRbsWiredEdit.WMMove(var message:TMessage); begin inherited; if FTransparent then SendMessage(Handle,TWM_RbsInvalidate,0,0) &nbsp;&nbsp;else Invalidate; end; procedure TRbsWiredEdit.CreateParams(var Params:TCreateParams); begin inherited CreateParams(Params); if (CsDesigning in ComponentState) then exit; &nbsp;&nbsp;&nbsp;&nbsp;with Params do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin &nbsp;&nbsp; ExStyle:=ExStyle or WS_EX_TRANSPARENT; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end; end; procedure TRbsWiredEdit.DoExit; begin inherited; &nbsp;&nbsp; FTransparent:=true; &nbsp;&nbsp; SetCursor(0); &nbsp;&nbsp; RecreateWnd; end; procedure TRbsWiredEdit.DoEnter; var exstyle,stdstyle:longint; begin inherited; Ftransparent:=false; StdStyle:= Windows.GetWindowLong(handle, GWL_EXSTYLE); exStyle:= StdStyle and not WS_EX_TRANSPARENT; Windows.SetWindowLong(handle, GWL_EXSTYLE, exStyle); invalidate; end; procedure TRbsWiredEdit.Invalidate; begin if FTransparent then SendMessage(Handle,TWM_RbsInvalidate,0,0) &nbsp;&nbsp;else inherited; end; procedure Register; begin &nbsp;&nbsp;RegisterComponents('Rombest', [TRbsWiredEdit]); end;</html>

web_lance · 2004-03-27

！！！

web_lance · 2004-05-15

接受答案了.

如何使TEdit控件具有Transparent属性 (0分)

web_lance

Unregistered / Unconfirmed

大富翁WW

Unregistered / Unconfirmed

web_lance

Unregistered / Unconfirmed

leafleter

Unregistered / Unconfirmed

firstrose

Unregistered / Unconfirmed

web_lance

Unregistered / Unconfirmed

firstrose

Unregistered / Unconfirmed

web_lance

Unregistered / Unconfirmed

web_lance

Unregistered / Unconfirmed

Similar threads