unit1.pas

Delphi7应用编程150例 附书源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TfrmMain = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure WMNCHITTEST(var M:TWMNCHITTEST); message WM_NCHITTEST;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
var
    dc:HDC;
    m_Font:HFONT;
    m_OldFont:HFONT;
    m_wndRgn:HRGN;
begin
    dc:=GetDC(self.Handle);
    m_Font:=CreateFont(200, 50, 0, 0, FW_HEAVY, 1, 0,
	                   0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
	                   CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
	                   DEFAULT_PITCH OR FF_SWISS, '宋体');
    //创建字体

	BeginPath(dc);
	//开始记录窗体轮廓路径
	SetBkMode(dc,TRANSPARENT);
	//设置背景为透明模式,这是必须有的

    m_OldFont:=SelectObject(dc,m_Font);
	TextOut(dc,0, 0, 'Delphi',6);
	SelectObject(dc,m_OldFont);
	EndPath(dc);
	//结束记录窗体轮廓路径
	m_wndRgn:=PathToRegion(dc);
	//把所记录的路径转化为窗体轮廓句柄
	SetWindowRgn(self.Handle,m_wndRgn, TRUE);
	//赋予窗体指定的轮廓形状
end;

procedure TfrmMain.WMNCHITTEST(var M:TWMNCHITTEST);
begin
    inherited;
    if M.Result=HTCLIENT then
        M.Result:=HTCAPTION;
end;

procedure TfrmMain.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key=27 then
        Application.Terminate;
end;
end.