Delphi 根据图片或者文字制作特殊的窗体

 

一、根据图片制作特殊的窗体

1、在FormCreate中计算窗体的不规则区域

procedure TForm1.FormCreate(Sender: TObject);
var
  ThreadRgn, TmpRgn: HRgn;
  X, Y,Height, Width: Integer;
begin
  BitMapb := TBitMap.Create;
  BitMapb.LoadFromFile(ExtractFileDir(Application.ExeName) + '\Pic\5.bmp');

  //设置窗体的大小
  Self.Height := BitMapb.Height;
  self.Width := BitMapb.Width;

  Height := BitMapb.Height;
  Width := BitMapb.Width;

   //创建矩形区域
  ThreadRgn := CreateRectRgn(0, 0, Width, Height);
  for Y := 0 to Height do
    for X := 0 to Width do
    begin
      //R := GetRValue(BitMapb.Canvas.Pixels[X, Y]);  R为整型
      if  BitMapb.Canvas.Pixels[X, Y] = rgb(0,0,255) then
      begin
        TmpRgn := CreateRectRgn(x, y, x + 1, y + 1);
        //区域融合，取ThreadRgn与TmpRgn连个区域OR之外的部分赋给ThreadRgn
        CombineRgn(ThreadRgn, ThreadRgn, TmpRgn, RGN_XOR);
        DeleteObject(TmpRgn);
      end;
    end;
  SetWindowRgn(handle, ThreadRgn, False);//设置窗体区域的有效区域
end;

 

2、//重新绘制窗体

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Draw(0, 0, BitMapb);  //  绘图
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  BitMapb.Free;
end;

3、//设置窗体的移动
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Button=Mbleft then
  begin
    ReleaseCapture;
    Perform(WM_NCLBUTTONDOWN,HTCAPTION,0);//消息处理
  end;
end;

 

4，其余的可以参考：

Delphi 自定义窗体（最大化、最小化、关闭、窗体的移动）

 

 

 

二、根据文字制作特殊的窗体

procedure TTextForm.FormCreate(Sender: TObject);
var
  Rgn :HRGN;
begin
  TextForm.Color := ClBlue;
  //启动一个路径分支，之后执行的GDI绘图命令会自动成为路径的一部分
  BeginPath(Canvas.Handle);

  SetBKMode(Canvas.Handle,TRANSPARENT);
  canvas.Font.Color := ClRed;   //无效，因为是透明的。
  Canvas.Font.Name := '宋体';
  Canvas.Font.Size := 80;
  Canvas.TextOut(0,0,'字体窗体');

  //结束定义路径。所有绘制操作将在指定的设备场景的路径中生效
  EndPath(Canvas.Handle);

  //将当前选定的路径转换到指定的区域中
  Rgn := PathToRegion(Canvas.Handle);
  SetWindowRgn(Handle,Rgn,true);
end;