Инфоурок Информатика Другие методич. материалыDELPHI бағдарламалау тілінде әр түрлі формалар құру

DELPHI бағдарламалау тілінде әр түрлі формалар құру

Скачать материал

DELPHI бағдарламалау тілінде әр түрлі формалар құру

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls;

 

type

  TForm1 = class(TForm)

    Image1: TImage;

    SpeedButton1: TSpeedButton;

    procedure FormCreate(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

 

 

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

var

r: hrgn;

begin

r:=createEllipticRgn (0,0,width, height);

try

SetwindowRgn (Handle,r,true);

finally

DeleteObject (r);

     end;

 

end;

 

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

close;

end;

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

unit Unit2;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, Buttons;

 

type

  TForm2 = class(TForm)

    SpeedButton1: TSpeedButton;

    Image1: TImage;

    procedure SpeedButton1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

{$R *.dfm}

 

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

close;

end;

 

procedure TForm2.FormCreate(Sender: TObject);

var

ap:array [1..5] of Tpoint;

r:hrgn;

begin

ap[1]:=Point(width div 2,0);

ap[2]:=Point(width div 3*2,height);

ap[3]:=Point(0,height div 3);

ap[4]:=Point(width,height div 3);

ap[5]:=Point(width div 3,height);

r:=CreatePolygonRgn (ap,5,winding);

try

SetwindowRgn (Handle,r,true);

finally

DeleteObject (r);

end;

end;

end.

Просмотрено: 0%
Просмотрено: 0%
Скачать материал
Скачать материал "DELPHI бағдарламалау тілінде әр түрлі формалар құру"

Методические разработки к Вашему уроку:

Получите новую специальность за 2 месяца

Директор детского оздоровительного лагеря

Получите профессию

Методист-разработчик онлайн-курсов

за 6 месяцев

Пройти курс

Рабочие листы
к вашим урокам

Скачать

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 625 995 материалов в базе

Скачать материал

Другие материалы

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

  • Скачать материал
    • 15.03.2017 534
    • DOCX 298.4 кбайт
    • Оцените материал:
  • Настоящий материал опубликован пользователем Аманбаева Гульгуль Курманбаевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

    Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

    Удалить материал
  • Автор материала

    • На сайте: 8 лет и 1 месяц
    • Подписчики: 0
    • Всего просмотров: 42682
    • Всего материалов: 19

Ваша скидка на курсы

40%
Скидка для нового слушателя. Войдите на сайт, чтобы применить скидку к любому курсу
Курсы со скидкой

Курс профессиональной переподготовки

HR-менеджер

Специалист по управлению персоналом (HR- менеджер)

500/1000 ч.

Подать заявку О курсе

Курс профессиональной переподготовки

Информатика: теория и методика преподавания с применением дистанционных технологий

Учитель информатики

300 ч. — 1200 ч.

от 7900 руб. от 3950 руб.
Подать заявку О курсе
  • Сейчас обучается 20 человек из 13 регионов

Курс повышения квалификации

Особенности подготовки к сдаче ОГЭ по информатике и ИКТ в условиях реализации ФГОС ООО

36 ч. — 180 ч.

от 1700 руб. от 850 руб.
Подать заявку О курсе
  • Сейчас обучается 107 человек из 38 регионов

Курс профессиональной переподготовки

Управление сервисами информационных технологий

Менеджер по управлению сервисами ИТ

600 ч.

9840 руб. 5900 руб.
Подать заявку О курсе
  • Сейчас обучается 27 человек из 19 регионов

Мини-курс

Российское движение школьников (РДШ): воспитательная работа

3 ч.

780 руб. 390 руб.
Подать заявку О курсе

Мини-курс

Физическая культура и спорт: методика, педагогика, психология

10 ч.

1180 руб. 590 руб.
Подать заявку О курсе

Мини-курс

Современные вызовы педагогической профессии: развитие профессионализма педагогов в контексте улучшения качества образования

10 ч.

1180 руб. 590 руб.
Подать заявку О курсе