发信人: delphifan()
整理人: delphifan(2000-12-05 19:43:50), 站内信件
|
【 在 delphiit (让我上路) 的大作中提到: 】
这里有我的部分代码：
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dia
logs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var p:longint;
begin
p:=GetWindowLong(handle,GWL_STYLE);//获取窗体属性
SetWindowLong(handle,GWL_EXSTYLE,p+WS_EX_TRANSPARENT);//设置新属性
form1.Refresh;
end;
end.
--
=================================================
== [email protected] ==
== [一个真正有内容、较实用的Delphi网站] ==
== http://delphifan.wojia.com ==
== http://lmd.yeah.net http://lmd.126.com ==
=================================================
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.100.19.254]
|
|