jbas
asked on
how can i let the Tedit transparent?
hi,experts:
i need a transparent edit,who can help me?thanks!
i need a transparent edit,who can help me?thanks!
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Cesario:
thanks,i try the vcl,it's ok but it have some small problem,i will change it.can you tell me other vcl?
thanks!
thanks,i try the vcl,it's ok but it have some small problem,i will change it.can you tell me other vcl?
thanks!
ASKER
how can i let the form transparent,but not let the edit transparent,the edit on the form!thanks!
Hi jbas,
Create a transparent TForm?
http://www.swissdelphicenter.ch/torry/showcode.php?id=982
make a Form semi-/ transparent?
http://www.swissdelphicenter.ch/torry/showcode.php?id=924
make a Form transparent?
http://www.swissdelphicenter.ch/torry/showcode.php?id=264
regards
cesario
Create a transparent TForm?
http://www.swissdelphicenter.ch/torry/showcode.php?id=982
make a Form semi-/ transparent?
http://www.swissdelphicenter.ch/torry/showcode.php?id=924
make a Form transparent?
http://www.swissdelphicenter.ch/torry/showcode.php?id=264
regards
cesario
ASKER
Cesario ,
hi,very happy to see you answer!
sorry,my english is poor.
i want let the form transparent(this is finished), and not let the edit transparent where the edit on the form!
form:transparent,but on the form's edit not transparent,how can i do?
my email:jbas@163.com
thanks!
hi,very happy to see you answer!
sorry,my english is poor.
i want let the form transparent(this is finished), and not let the edit transparent where the edit on the form!
form:transparent,but on the form's edit not transparent,how can i do?
my email:jbas@163.com
thanks!
ASKER
thanks to Cesario !
if your have some advice about my problem please let me know,my email:jbas@163.com
thanks!
if your have some advice about my problem please let me know,my email:jbas@163.com
thanks!
ASKER
i try to head off the wm_paint,WM_ERASEBKGND message but it not well either,help me!
thanks!
unit TransEdit;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;
type
TTransEdit = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
procedure createparams(Var Params:TCreateParams);over
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Sample
end;
{ TTransEdit }
procedure TTransEdit.createparams(va
begin
inherited createparams(Params);
params.ExStyle:=params.ExS
invalidate;
end;
end.