양식 텍스트:
개체 Form1: TForm1
왼쪽 = 192
최고 = 107
테두리 스타일 = bsNone
캡션 = 'Form1'
클라이언트 높이 = 348
클라이언트 너비 = 536
색상 = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
글꼴.높이 = -11
Font.Name = 'MS 산세리프체'
글꼴.스타일 = []
OldCreateOrder = 거짓
OnCreate = Button1Click
PixelsPerInch = 96
텍스트 높이 = 13
객체 Button1: TButton
왼쪽 = 392
최고 = 152
너비 = 75
높이 = 25
캡션 = 'Button1'
탭순서 = 0
OnClick = Button1Click
끝
객체 Button2: TButton
왼쪽 = 432
최고 = 24
너비 = 17
높이 = 17
캡션 = 'Button2'
탭순서 = 1
온클릭 = Button2Click
끝
객체 Button3: TButton
왼쪽 = 448
최고 = 40
너비 = 17
높이 = 17
캡션 = 'Button2'
탭순서 = 2
OnClick = Button3Click
끝
객체 Button4: TButton
왼쪽 = 464
최고 = 56
너비 = 17
높이 = 17
캡션 = 'Button2'
탭순서 = 3
OnClick = Button4Click
끝
끝
다른 종류의 사건 이름:
TForm1 = 클래스(TForm)
버튼1: T버튼;
Button2: T버튼;
Button3: T버튼;
Button4: T버튼;
PROcedure Button1Click(Sender: TObject);
절차 Button2Click(보내는 사람: TObject);
절차 Button3Click(보내는 사람: TObject);
절차 Button4Click(보내는 사람: TObject);
사적인
절차 WMmove(var 메시지: TWMNCHITTEST); 메시지 WM_NCHITTEST;
{ 비공개 선언 }
공공의
{ 공개 선언 }
끝;
var
Form1: TForm1;
구현
{$R *.DFM}
절차 TForm1.WMmove(var 메시지: TWMNCHITTEST);
시작하다
메시지.결과 := HTCAPTION;
끝;
절차 TForm1.Button1Click(Sender: TObject);
var
R1,R2,R3,R4,R5: HRGN;
시작하다
R1 := CreateEllipticRgn(0,0,Round(ClientWidth / 2),ClientHeight);
R2 := CreateEllipticRgn(Round(ClientWidth / 2),0,ClientWidth,ClientHeight);
R3 := CreateEllipticRgn(Round(ClientWidth / 4 ),Round(ClientHeight / 4 *3),Round(ClientWidth / 4 *3),ClientHeight);
R4 := CreateRectRgn(0,0,0,0);
R5 := CreateRectRgn(0,0,0,0);
CombineRgn(R4,R2,R1,RGN_or);
CombineRgn(R5,R4,R3,RGN_or);
SetWindowRGN(핸들,R5,True);
삭제객체(R1);
삭제객체(R2);
삭제객체(R3);
삭제객체(R4);
삭제객체(R5);
끝;
절차 TForm1.Button2Click(Sender: TObject);
시작하다
SendMessage(핸들,WM_SYSCOMMAND,SC_MINIMIZE,0);
끝;
절차 TForm1.Button3Click(Sender: TObject);
시작하다
SendMessage(핸들,WM_SYSCOMMAND,SC_DEFAULT,0);
끝;
절차 TForm1.Button4Click(Sender: TObject);
시작하다
신청.종료;
끝;
끝.