本文整理自网络，侵删。
unit Exa1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);begin Self.Left := 100; // 此为窗体的左端在屏幕中的位置 Self.Top := 100; // 此为窗体的上端在屏幕中的位置 Self.Width := 300; // 此为窗体的宽度 Self.Height := 300; // 此为窗体的高度 Self.Color := clBlack; // 此为窗体的颜色end;
procedure TForm1.Button1Click(Sender: TObject);begin if Self.Button1.Caption = 'Normal' then //如果按钮Caption为Normal begin Self.Button1.Caption := 'Transparant'; //设置Caption为Transparant Self.Color := clBlack; //设置窗体颜色为黑色，显示为正常状态 end else //如果按钮的Caption为Transparant begin Self.Button1.Caption := 'Normal'; //设置Caption为Normal Self.Color := Self.TransparentColorValue;//设置窗体颜色为窗体透明色，显示为透明状态 end;end;
procedure TForm1.Button2Click(Sender: TObject);begin Self.Close;end;
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);begin inherited; if M.Result = htClient then M.Result := htCaption;end;
end. 相关阅读 >>
Delphi 2009 泛型容器单元(generics.collections)[5]: tobject...<t> 系列
Delphi 判断是否为空('none', 'null', '')
更多相关阅读请进入《Delphi》频道 >>
