许明吉博客

摘要： 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. 阅读全文

摘要： 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... 阅读全文