Форма: ТЕКСТ:
объект Форма1: TForm1
Слева = 192
Топ = 107
БордерСтиль = bsNone
Заголовок = 'Форма1'
КлиентХигхт = 348
КлиентВидс = 536
Цвет = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Шрифт.Высота = -11
Font.Name = 'MS Sans Serif'
Шрифт.Стиль = []
Олдкреатеордер = ложь
ПриСоздании = Кнопка1Клик
Пикселей на дюйм = 96
ТекстХайт = 13
объект Button1: TButton
Слева = 392
Топ = 152
Ширина = 75
Высота = 25
Заголовок = 'Кнопка1'
ТабОрдер = 0
При нажатии = Button1Click
конец
объект Button2: TButton
Слева = 432
Топ = 24
Ширина = 17
Высота = 17
Заголовок = 'Кнопка2'
ТабОрдер = 1
При щелчке = Кнопка2 щелчка
конец
объект Button3: TButton
Слева = 448
Топ = 40
Ширина = 17
Высота = 17
Заголовок = 'Кнопка2'
ТабОрдер = 2
OnClick = Button3Click
конец
объект Button4: TButton
Слева = 464
Топ = 56
Ширина = 17
Высота = 17
Заголовок = 'Кнопка2'
ТабОрдер = 3
При нажатии = Button4Click
конец
конец
各种不 и 件声名:
ТФорм1 = класс (ТФорма)
Кнопка1: Кнопка T;
Кнопка2: Кнопка T;
Кнопка3: Кнопка T;
Кнопка4: Кнопка T;
PROcedure Button1Click (Отправитель: TObject);
процедура Button2Click (Отправитель: TObject);
процедура Button3Click (Отправитель: TObject);
процедура Button4Click (Отправитель: TObject);
частный
процедура WMmove(var Сообщение: TWMNCHITTEST); Сообщение WM_NCHITTEST;
{ Частные заявления }
общественный
{ Публичные заявления }
конец;
вар
Форма1: ТФорм1;
выполнение
{$R *.DFM}
процедура TForm1.WMmove(сообщение var: TWMNCHITTEST);
начинать
Сообщение.Результат:= HTCAPTION;
конец;
процедура TForm1.Button1Click(Отправитель: TObject);
вар
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);
ОбъединитьRgn(R4,R2,R1,RGN_or);
ОбъединитьRgn(R5,R4,R3,RGN_or);
SetWindowRGN (Дескриптор, R5, Истина);
УдалитьОбъект(R1);
УдалитьОбъект(R2);
УдалитьОбъект(R3);
УдалитьОбъект(R4);
УдалитьОбъект(R5);
конец;
процедура TForm1.Button2Click(Отправитель: TObject);
начинать
SendMessage (дескриптор, WM_SYSCOMMAND, SC_MINIMIZE, 0);
конец;
процедура TForm1.Button3Click(Отправитель: TObject);
начинать
SendMessage (дескриптор, WM_SYSCOMMAND, SC_DEFAULT, 0);
конец;
процедура TForm1.Button4Click(Отправитель: TObject);
начинать
приложение.Завершить;
конец;
конец.