Разработка приложений в системе Delphi. Шейкер Т.Д. - 28 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

implementation
{$R *.dfm}
procedure TfmComby.FormCreate(Sender: TObject);
Var A,B:HRgn;
begin
A:=CreateRectRgn(20,20,400,400);
B:=CreateEllipticRgn(125,125,285,285);
CombineRgn(A,A,B,Rgn_DIFF);
SetWindowRgn(fmComby.Handle,A,true)
end;
procedure TfmComby.Button1Click(Sender: TObject);
begin
C
end;
lose;
end.
ВОПРОСЫ ДЛЯ САМОКОНТРОЛЯ
1. Почему средствами
Delphi нельзя изменить шрифт заголовка окна?
2. Какое значение имеет по умолчанию свойство
FormStyle?
3. Какой пользовательский интерфейс чаще используется: MDI или SDI ?
4. Поясните принцип организации многопользовательского интерфейса.
5. Какое окно появится на экране, если заданы приведённые ниже свойства?
form1.BorderStyle:=bsSingle;
form1.BorderIcons:=[biSystemMenu, biHelp];
6. В каком из приведённых вариантов будет присутствовать кнопка для
сворачивания окна:
1) form1.BorderStyle:=bsNone;
2) form1.BorderStyle:=bsNone;
form1.BorderIcons:=[biSystemMenu, biMinimize];
3) form1.BorderStyle:=bsSizeable;
form1.BorderIcons:=[biSystemMenu, biMinimize];
4) form1.BorderStyle:=bsSizeable;
form1.BorderIcons:=[biMinimize];
5) form1.BorderStyle:=bsDialog;
form1.BorderIcons:=[biSystemMenu, biMinimize];
6) form1.BorderStyle:=bsDialog;
7. В обработчике какого события задают программно размеры формы?
28
implementation
{$R *.dfm}
procedure TfmComby.FormCreate(Sender: TObject);
Var A,B:HRgn;
begin
  A:=CreateRectRgn(20,20,400,400);
  B:=CreateEllipticRgn(125,125,285,285);
  CombineRgn(A,A,B,Rgn_DIFF);
  SetWindowRgn(fmComby.Handle,A,true)
end;
procedure TfmComby.Button1Click(Sender: TObject);
begin
  Close;
end;
end.


                       ВОПРОСЫ ДЛЯ САМОКОНТРОЛЯ
1. Почему средствами Delphi нельзя изменить шрифт заголовка окна?
2. Какое значение имеет по умолчанию свойство FormStyle?
3. Какой пользовательский интерфейс чаще используется: MDI или SDI ?
4. Поясните принцип организации многопользовательского интерфейса.
5. Какое окно появится на экране, если заданы приведённые ниже свойства?
     form1.BorderStyle:=bsSingle;
     form1.BorderIcons:=[biSystemMenu, biHelp];
6. В каком из приведённых вариантов будет присутствовать кнопка для
  сворачивания окна:
   1) form1.BorderStyle:=bsNone;

   2) form1.BorderStyle:=bsNone;
      form1.BorderIcons:=[biSystemMenu, biMinimize];

   3) form1.BorderStyle:=bsSizeable;
      form1.BorderIcons:=[biSystemMenu, biMinimize];

   4) form1.BorderStyle:=bsSizeable;
      form1.BorderIcons:=[biMinimize];

   5) form1.BorderStyle:=bsDialog;
      form1.BorderIcons:=[biSystemMenu, biMinimize];

   6) form1.BorderStyle:=bsDialog;

7. В обработчике какого события задают программно размеры формы?



                                    28

Страницы