摘要: procedure TForm1.Button1Click(Sender: TObject);varh: HWND;FormStyle: Integer;beginh := self.Handle;FormStyle := GetWindowLong(h, GWL_EXSTYLE);SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);SetLayeredWindowAttributes(h, 0, 128, LWA_ALPHA);end; procedure TForm1.Button2Click(Sender: TObject. 阅读全文
posted @ 2012-01-03 22:52 许明吉博客 阅读(1979) 评论(0) 推荐(0) 编辑
摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg;type TForm1 = class(TForm) pnl1: TPanel; pnl2: TPanel; img1: TImage; img2: TImage; btn1: TButton; procedure btn1Click(Sender: TObject); proced... 阅读全文
posted @ 2012-01-03 17:52 许明吉博客 阅读(577) 评论(0) 推荐(0) 编辑