delphi_悬浮窗口

functionSetLayeredWindowAttributes(hwnd:HWND;crKey:Longint;bAlpha:byte;dwFlags:longint):longint;stdcall;externaluser32;//函数声明implementation{$R*.dfm}procedureTForm1.btnCancelClick(Sender:TObject);beginForm1.Close;Application.Terminate;end;procedureTForm1.btnOkClick(Sender:TObject);beginifEdit1.T