zoukankan      html  css  js  c++  java
  • 创建异形窗口[4]

    本例效果图:


    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        RadioGroup1: TRadioGroup;
        procedure FormCreate(Sender: TObject);
        procedure RadioGroup1Click(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure FormDblClick(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    var
      pt: TPoint;
      RGN_Mode: Integer = RGN_AND;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      pt.X := Width;
      pt.Y := Height;
      RadioGroup1.Items.CommaText := 'RGN_AND,RGN_OR,RGN_XOR,RGN_DIFF,RGN_COPY';
      RadioGroup1.ItemIndex := 0;
    end;
    
    procedure TForm1.RadioGroup1Click(Sender: TObject);
    begin
      RGN_Mode := RadioGroup1.ItemIndex + 1;
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      rgn1,rgn2: HRGN;
    begin
      rgn1 := CreateEllipticRgn(10,10,110,110);
      rgn2 := CreateEllipticRgn(80,10,180,110);
      CombineRgn(rgn1, rgn1, rgn2, RGN_Mode);
      SetWindowRgn(Handle, rgn1, True);
    end;
    
    procedure TForm1.FormDblClick(Sender: TObject);
    var
      rgn: HRGN;
    begin
      rgn := CreateRectRgn(0, 0, pt.X, pt.Y);
      SetWindowRgn(Handle, rgn, True);
    end;
    
    end.
    
  • 相关阅读:
    P1983 车站分级
    P1807 最长路
    P1347 排序
    P1073 最优贸易 (tarjan缩点+dp)
    最小费用最大流解决KM匹配问题
    CF191C Fools and Roads
    case when
    防呆机制
    DbCommand :执行超时已过期。完成操作之前已超时或服务器未响应。
    存储过程带参数和sqlcommand
  • 原文地址:https://www.cnblogs.com/del/p/1178186.html
Copyright © 2011-2022 走看看