Delphi. Учимся на примерах

 //заменяем оригинальный текст на зашифрованный
 Memo1.Text := xr;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
 if N9.Checked then //если флажок установлен
 begin
 N9.Checked:= False; //сбрасываем флажок
 //Отображаем горизонтальную полосу прокрутки
 Memo1.ScrollBars:= ssBoth;
 end
 else begin //если флажок не установлен
 N9.Checked:= True; //устанавливаем флажок
//убираем горизонтальную полосу прокрутки
 Memo1.ScrollBars:= ssVertical;
 end;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
 //Определяем все настройки шрифта и отображаем их
 //в диалоговом окне
 FontDialog1.Font.Color:= Memo1.Font.Color; //цвет шрифта
 FontDialog1.Font.Style:= Memo1.Font.Style; //стиль
 FontDialog1.Font.Size:= Memo1.Font.Size; //размер
 FontDialog1.Font.Charset:= Memo1.Font.Charset; //кодировка
 FontDialog1.Font.Name:= Memo1.Font.Name; //название шрифта
 if FontDialog1.Execute then
 begin // применяем все выбранные настройки
 Memo1.Font.Color:= FontDialog1.Font.Color;
 Memo1.Font.Style:= FontDialog1.Font.Style;
 Memo1.Font.Size:= FontDialog1.Font.Size;
 Memo1.Font.Charset:= FontDialog1.Font.Charset;
 Memo1.Font.Name:= FontDialog1.Font.Name;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 Str: String; //путь к параметру
 i: Integer;
begin
 xr_num := '2'; //по умолчанию смещение = 2
 if (ParamCount > 0) then begin
 Str:= ParamStr(1); //Формируем путь к аргументу
 for i:=2 to ParamCount do Str:= Str + ' ' + ParamStr(i);
 end;
 {Если на вход программы поступили параметры, то отображаем содержимое соответствующего файла в поле Memo}
 if Str <> '' then Memo1.Lines.LoadFromFile(str);
end;

end.

⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter_07.

Глава 8 Игра "Успей щелкнуть"

Постановка задачи

По всему экрану мелькает форма, и цель игры — успеть щелкнуть мышью на появившемся окне. Для победы необходимо "попасть" по окну десять раз. Следует учитывать, что при каждом "попадании" скорость перемещения окна увеличивается.

Разработка формы

Создадим новый проект Delphi. Мелькающее окно у нас будет необычным: оно будет без заголовка и не прямоугольным, а эллиптической формы. Измените свойства формы согласно табл. 8.1.

Таблица 8.1. Свойства формы игры "Успей щелкнуть"

Свойство	Значение	Пояснение
BorderStyle	bsNone	Окно программы будет отображаться без границы и заголовка
FormStyle	fsStayOnTop	Окно программы должно располагаться поверх всех остальных окон, поскольку игрок не всегда будет "попадать" по нашему окну, а значит своими "промахами" будет активизировать другие окна
Color	clWindowText	Цвет формы — черный
Height	72	Высота
Width	208	Ширина

Разместите на форме компонент Label категории Standard. Измените его свойства согласно табл. 8.2.

Таблица 8.2. Свойства первого компонента Label

Свойство	Значение	Пояснение
Caption	Попадания:	Надпись метки
Font.Color	clLime	Цвет шрифта — светло-зеленый
Font.Name	Courier New	Название шрифта
Font.Size	12	Размер шрифта
Font.Style	[fsBold]	Начертание шрифта — полужирное
Left	16	Отступ слева
Top	16	Отступ сверху

Разместите на форме еще один компонент Label и измените его свойства согласно табл. 8.3.

Таблица 8.3. Свойства второго компонента Label

Свойство	Значение	Пояснение
Name	popad	Новое имя компонента
Caption	0	Надпись метки
Font.Color	clRed	Цвет шрифта — красный
Font.Name	Courier New	Название шрифта
Font.Size	16	Размер шрифта
Font.Style	[fsBold]	Начертание шрифта — полужирное
Left	120	Отступ слева
Top	16	Отступ сверху

Разместите на форме третий компонент Label, который будет отображать предельное число "попаданий", и измените его свойства согласно табл. 8.4.

Таблица 8.4. Свойства третьего компонента Label

Свойство	Значение	Пояснение
Caption	/10	Надпись метки
Font.Color	clRed	Цвет шрифта — красный
Font.Name	Courier New	Название шрифта
Font.Size	16	Размер шрифта
Font.Style	[fsBold]	Начертание шрифта — полужирное
Left	144	Отступ слева
Top	16	Отступ сверху

Напоследок разместите на форме компонент Timer категории System. Результат оформления формы должен соответствовать рис. 8.1.

Рис. 8.1. Форма для игры "Успей щелкнуть"

Разработка программного кода

Изменение формы окна на эллиптическую реализуется в обработчике события OnCreate формы. Для этого необходимо объявить глобальную переменную forma типа HRGN, которая будет содержать размеры окна: