文件名称：delphi_悬浮窗口
文件大小：274KB
文件格式：RAR
更新时间：2014-02-08 08:57:33
delphi_悬浮窗口
function SetLayeredWindowAttributes(hwnd: HWND; crKey: Longint; bAlpha: byte; dwFlags: longint): longint; stdcall; external user32; //函数声明 implementation {$R *.dfm} procedure TForm1.btnCancelClick(Sender: TObject); begin Form1.Close; Application.Terminate; end; procedure TForm1.btnOkClick(Sender: TObject); begin if Edit1.Text = '' then begin ShowMessage('透明度不能为空！'); Edit1.SetFocus; edit1.SelectAll; Exit; end; //设置透明度 SetTMD(StrToInt(Edit1.Text)); end;
【文件预览】：
悬浮1
----__history()
--------Unit1.dfm.~22~(1KB)
--------Unit1.pas.~40~(3KB)
--------Unit1.dfm.~23~(1KB)
--------Unit1.dfm.~26~(1KB)
--------Unit1.pas.~38~(3KB)
--------Unit1.pas.~43~(3KB)
--------Unit1.dfm.~18~(1KB)
--------Unit1.pas.~45~(3KB)
--------Unit1.pas.~46~(3KB)
--------Unit1.dfm.~20~(1KB)
--------Unit1.dfm.~24~(1KB)
--------Unit1.dfm.~21~(1KB)
--------Unit1.dfm.~27~(1KB)
--------Unit1.dfm.~25~(1KB)
--------Unit1.pas.~41~(3KB)
--------Unit1.pas.~42~(3KB)
--------Unit1.pas.~44~(3KB)
--------Unit1.pas.~39~(3KB)
--------Unit1.dfm.~19~(1KB)
--------Unit1.pas.~37~(3KB)
----Unit1.dcu(7KB)
----Project1.exe(716KB)
----Unit1.dfm(1KB)
----Project1.dpr(230B)
----Unit1.pas(3KB)
----Project1.identcache(213B)
----Project1.res(5KB)
----Project1.dproj(4KB)
----Project1.dproj.local(830B)