Spread the love

3. Свойства и методы формы. Лабораторные Delphi (1)

Основные свойства формы в Delphi

Запустите на выполнение Delphi XE3. Создайте новый проект, выбрав в меню File | New | VCL Forms Application — Delphi. Появится форма нового проекта. Щелкните мышью по новой пустой форме.
Запустите на выполнение пустую форму, щелкнув по кнопке  или нажав клавиши Shift+Ctrl+F9. На экране появится пустая форма, содержащая только заголовочную строку. Закройте форму, щелкнув мышью по кнопке закрытия в заголовке формы щелкнув правой кнопкой мыши по заголовку формы и выбрав в появившемся контекстном меню строку Закрытьили нажав клавиши Alt+F4.
В окне Object Inspector отображаются свойства и события формы.














Положите на форму с вкладки Standard палитры инструментов Tool Palette компонент ввода текста Edit и кнопку Button. Кнопке задайте надпись (свойство Caption) Заголовок. Форма примет следующий вид:

Дважды щелкните мышью по кнопке Заголовок или, выделив мышью эту кнопку, перейдите в окне Object Inspector на вкладку Events (события) и дважды щелкните мышью справа от события OnClick (событие, возникающее при щелчке пользователем мышью по кнопке). Откроется вкладка редактирования текста Unit1и появится заготовка для обработчика события щелчка по кнопке:

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

Введите оператор, помещающий в заголовок формы текст, набранный пользователем в поле ввода Edit:

procedure TForm1.Button1Click(Sender: TObject);

begin

  Self.Caption := Edit1.Text;

end;

Ключевое слово Self, означающее, что свойство относится к текущей форме, можно опустить.

Запустите программу на выполнение. Введите произвольный текст в Edit1. Щелкните по кнопке Заголовок. В заголовке формы появится набранный вами текст.

Форму можно закрыть, выбрав в системном меню формы вариант Закрыть, нажав клавиши Alt+F4, щелкнув мышью по кнопке закрытия  в заголовке формы. Можно также закрыть форму программным способом, используя метод формы Close().
Положите на форму еще одну кнопку TButton. Присвойте кнопке текст Закрыть.

Для этой кнопки напишите обработчик события щелчка мышью, при котором происходит закрытие формы и завершение работы программы.

procedure TForm1.Button2Click(Sender: TObject);

begin

  Close();

end;

Запустите программу на выполнение, убедитесь, что при щелчке по кнопке Закрытьпроисходит завершение работы программы.

Поскольку закрывается главная (в данном случае единственная) форма программы, происходит завершение работы всего приложения. Чтобы выполнить завершение работы программы из любой формы, нужно вызвать метод Terminate() объекта Application:

Application.Terminate();

Свойство Iconпозволяет задать для формы конкретную пиктограмму, помещаемую в левый верхний угол заголовка формы. Если это свойство не задано, то у формы присутствует иконка по умолчанию.

Выделите в свойствах формы строку Icon, щелкните мышью справа от значения этого свойства по кнопке Появится окно изменения изображения:







Щелкните по кнопке Load. Появится диалоговое окно открытия файла. Откройте на компьютере подходящий файл с расширением ico.

Щелкните по кнопке OK. Иконка будет помещена в заголовок формы.

Чтобы удалить из формы заданную иконку и вернуть иконку по умолчанию, нужно справа от свойства формы Icon выделить мышью сам текст (Icon) и нажать клавишу Del (удалить). Для удаления иконки можно также вызвать окно изменения изображения (рис. 4) и щелкнуть в нем по кнопке Clear (очистить).

Свойство WindowState задает вид формы при ее первоначальном запуске:

Читать на сайте автора.

Delphi плюс Android? Есть идея! Tap#5

Эта заметка является продолжением предыдущих: Tap#1, Tap#2, Tap#3, Tap#4. И в ней я хочу завершить.

Итак, игра на логическое мышление.  Я решил сделать аналог игры Flip-Flop компании Gamos. На всякий случай, оговорюсь – я не ставлю перед собой цель создать коммерческий продукт. Цель другая –  попробовать, покрутить, поучаствовать.

Ну и поскольку, у меня нет опыта в написании игр, не думаю, что мой аналог будет таким атмосферным, как оригинал. Однако я поэкспериментирую с размером игрового поля (не только 4 на 4), “поиграю” с векторной анимацией и масштабированием, порадую близких и коллег мобильным аналогом уже подзабытой игры.

В предыдущих заметках я рассказал о базовой фрейме TNPC. Так получилось, что эта фрейма у меня стала базовой для всех фрейм в проекте. А фрейм получилось несколько – я решил раздробить части игры именно по фреймам и в главной форме уже наладить взаимодействие между фреймами.

У меня получились:

  uAni,                          // моя попытка сделать работу с анимацией более удобной
  frMain {frmMain},              // главная форма приложения
  uNPC {NPC: TFrame},            // базовый фрейм
  fraDroid {frameDroid: TFrame}, // фрейм с персонажем-роботом
  fraHello {frameHello: TFrame}, // фрейм с интро (оно же получилось титрами)
  fraDesk {frameDesk: TFrame},   // фрейм с игровым полем
  fraMenu {frameMenu: TFrame},   // фрейм с меню
  fraHelp {frameHelp: TFrame},   // фрейм с описанием как играть
  fraOptions {frameOptions: TFrame}, // фрейм с настройками
  fraScore {frameScore: TFrame};     // фрейм с рекордом и очками игрока

Всё вместе это выглядит так:

Tap-Tap!

Взаимодействие между фреймами я сделал очень простым, оно происходит через главную форму. Т.е. на экземпляр главной формы ссылается глобальная переменная. При этом главная форма содержит методы:

  public
    procedure ShowIntro;
    procedure StartNewGame;
    procedure StopGame;
    procedure ShowOptions;
    procedure ShowHelp;
    procedure ShowCredits;

    procedure RegClick;
    procedure RegWin;

Эти методы, теоретически, может “дёрнуть” любая фрейма – что не есть хорошо. Но для такой простой программы – вполне приемлемо.

О настройках и рекордах

Всё это хранится в обычном ini-файле, делается так:

uses
  .. System.IniFiles ..
  ..
  private
    FOptions: TMemIniFile;
  ..
const
  sIniFileName = 'TapTap.ini';
  ..
  FOptions := TMemIniFile.Create(TPath.GetHomePath + TPath.DirectorySeparatorChar + sIniFileName);
  ..
  // save options to file:
  FOptions.UpdateFile;

И ещё несколько слов об анимации

Мне показалось, что настройка анимации через компоненты типа TFloatAnimation в Design-Time (конкретно для задачи анимирования персонажа) не очень удобна. Потому что один TFloatAnimation-объект модифицирует всего одно свойство. (А ещё, при большом количестве объектов анимации может произойти рассинхронизация.) Поэтому, я пошёл немного другим путём.

Идея такая: анимацию сложного (составного) объекта помещаем в одну процедуру с входным параметром AProgress: Single, значения которого варьируются от 0 до 1. Задача процедуры – установить положение объекта на момент времени AProgress. При этом, в теле одной процедуры могут меняться и координаты и размеры разных составляющих объекта. Пример такой процедуры был в предыдущей заметке – см. метод ProcessOpenCloseAnimation).

Забота за вызов такой процедуры перекладывается на другой объект, который, по сути, состоит из TFloatAnimation. Если же надо вызвать последовательно несколько процедур, то их можно поместить в список. Так у меня “родился” модуль uAni.pas – ещё черновой, но уже рабочий.

Такой подход дал мне возможность всего одним TFloatAnimation-объектом анимировать смену состояний сразу у нескольких персонажей.

Вместо заключения

На текущий момент, игра оставляет впечатление недоделанности. Тут, конечно, есть что доводить до ума. У меня было ещё несколько идей и с уровнями сложности, и с анимацией, и с выбором персонажей, и с озвучкой (этого, кстати, вообще нет), и с рекордами (в плане внешнего оформления – тут я откровенно схалтурил). Но, надо понимать, что всё это требует времени. (Кстати, на написание заметок в блог порой уходит больше времени, чем на программирование.)

С другой стороны, игра получилась вполне “играбельной”. В общем, я вполне удовлетворён результатом и надеюсь, что и вы не останетесь равнодушными.

Скачать: исходники (zip-архив, 93.4 КБ), Win32-exe (zip-архив, 2.47 МБ), Android-apk (zip-архив, 6.33 МБ).

Читать на сайте автора.

Задачка на понимание №2

Это уже достаточно старая задача, лет семь (если не отказала память) живет в моих тестах на профпригодность, выдаваемых кандидатам при собеседовании.
В отличии от прошлой задачи,

http://alexander-bagel.blogspot.com/2013/12/2.html

Ответ на задачу №1

Откуда вообще появляются такие вот непонятные куски кода в которых различные авторы предлагают искать ошибки? Вопрос по сути философский — народное творчество 🙂
Благодаря народному творчеству

http://alexander-bagel.blogspot.com/2013/12/1_19.html

2. Свойства и методы формы

Форма — основной визуальный компонент, на котором располагаются все элементы управления программой, средства отображения и изменения данных.

Основные свойства формы

Наиболее важные свойства формы представлены в следующей таблице.

Таблица 1. Основные свойства формы

Свойство

Описание

ActiveControl

Содержит имя одного из объектов на форме, который в настоящий момент имеет фокус. Имя элемента на этапе проектирования выбирается из выпадающего списка. Этот элемент получит фокус при первом отображении формы.

Align

Задает выравнивание формы на экране монитора. Значениями являются:

·  alNone (значение по умолчанию) — выравнивание формы производиться не будет,

·  alBottom — форма выравнивается по нижней части экрана,

·  alClient — форма выравнивается по всей поверхности экрана,

·  alCustom — у формы будут все элементы управления, заданные другими свойствами формы, размер формы нельзя изменять во время выполнения,

·  alLeft — форма выравнивается по левой части экрана,

·  alRight — форма выравнивается по правой части экрана,

·  alTop — форма выравнивается по верхней части экрана.

AlphaBlend

Определяет, может ли окно быть прозрачным (true) или нет (false). Свойство AlphaBlendValue задает степень прозрачности окна.

AlphaBlendValue

Определяет степень прозрачности окна: 0 — окно совершенно прозрачно, 255 — непрозрачно. Свойство AlphaBlend должно быть установлено в значение true.

AutoScroll

Определяет, будут ли в окне автоматически появляться полосы прокрутки, если при изменении пользователем размеров окна будут скрыты визуальные элементы (true) или нет (false). При этом свойство AutoSize должно быть установлено в значение false.

AutoSize

Указывает, может ли пользователь изменять размеры окна таким образом, чтобы скрывались визуальные элементы, расположенные на окне (значение по умолчанию false), или возможно только такое изменение размеров, при котором остаются видимыми все элементы (значение true).

BorderIcon

Определяет наличие кнопок в заголовке формы. Подсвойствами, принимающими значение true или false, являются:

·  biSystemMenu — наличие системного меню,

·  biMinimize — наличие кнопки минимизации,

·  biMaximize — наличие кнопки максимизации,

·  biHelp — наличие кнопки помощи.

BorderStyle

Указывает вид и поведение ограничивающей рамки у формы. Значениями являются:

·  bsNone — форма не будет иметь текста заголовка, системного меню, кнопок минимизации, максимизации и закрытия,

·  bsDialog — у формы будут присутствовать только системное меню и кнопка закрытия, размер формы нельзя изменять во время выполнения,

·  bsSingle — у формы будут присутствовать все элементы управления, заданные другими свойствами формы, размер формы нельзя изменять во время выполнения,

·  bsSizable — размеры формы можно изменять во время выполнения (значение по умолчанию),

·  bsToolWindow — размеры формы нельзя изменять во время выполнения программы, форма имеет тонкую границу, у формы присутствует только кнопка закрытия. Системное меню отсутствует. Заголовок формы имеет высоту меньше обычного,

·  bsSizeToolWin — вариант похож на задание bsToolWindow, при этом размер формы можно изменять.

Caption

Текст в заголовке окна.

ClientHeight

Высота клиентской части окна в пикселах.

ClientWidth

Ширина клиентской части окна в пикселах.

Color

Задает цвет фона формы. Значение выбирается из выпадающего списка.

Constraints

Задает ограничения на размер формы в пикселах. Подсвойствами являются:

·  MaxHeight — максимальная высота формы, если указан ноль, размер не ограничивается,

·  MaxWidth — максимальная ширина формы, если указан ноль, размер не ограничивается,

·  MinHeight — минимальная высота формы, если указан ноль, размер не ограничивается,

·  MinWidth — минимальная ширина формы, если указан ноль, размер не ограничивается.

Cursor

Задает вид курсора мыши, который появляется при наведении мыши на форму. Выбирается из выпадающего списка.

Enabled

Указывает, может ли форма принимать действия пользователя — щелчки мышью по кнопкам и элементам меню, ввод данных в поля Edit (значение по умолчанию true). Если задано false, то все диалоговые элементы формы блокируются.

Font

Задает характеристики шрифта для формы по умолчанию. Эти характеристики будут копироваться для всех компонентов, помещаемых на форму.

Height

Высота окна в пикселах.

Icon

Задает иконку, помещаемую в заголовок формы. При загрузке иконки вызывается обычное диалоговое окно выбора рисунка.

KeyPreview

Определяет, будут ли события нажатия пользователем клавиш перехватываться соответствующими событиями формы (значение true) или нет (значение по умолчанию false).

Left

Определяет положение на экране левого верхнего края окна в пикселах при старте формы по горизонтали.

Name

Имя формы. Создается при проектировании, не может изменяться во время выполнения программы.

Position

Задает положение и размер формы при ее первом выводе на экран. Может принимать следующие значения:

·  poDefault — начальное положение и размер формы будут определяться операционной системой,

·  poDefaultPosOnly — начальное положение формы будет определяться операционной системой,

·  poDefaultSizeOnly — размер формы будет определяться операционной системой,

·  poDesigned — начальное положение и размер формы будут такими же, как они были установлены при проектировании формы,

·  poDesktopCenter и poScreenCenter — форма располагается в центре экрана,

·  poMainFormCenter — форма располагается в центре главной формы,

·  poOwnerFormCenter — форма располагается в центре родительской формы.

Top

Определяет положение на экране левого верхнего края окна в пикселах при старте формы по вертикали.

Visible

Задает, видима ли форма во время выполнения (значение true) или нет (false).

Width

Ширина окна в пикселах.

WindowState

Указывает, будет ли форма при начальном появлении на экране минимизированной, максимизированной или у нее будет размер, заданный при проектировании. Принимает следующие значения:

·  Normal — форма имеет размер, заданный при проектировании,

·  Minimized — форма будет минимизированной,

·  Maximized — форма будет максимизированной, развернутой на весь экран.

Методы формы

Главные методы формы представлены в следующей таблице.

Таблица 2. Методы формы

Метод

Описание

Show

Вызывает на выполнение указанную форму. Таким методом можно вызвать произвольное количество экземпляров одной формы. В процессе выполнения программы можно переключаться между различными экземплярами формы.

ShowModal

Вызывает на выполнение форму в диалоговом, или в так называемом модальном, режиме. Переключиться на другую форму данного приложения невозможно, пока не будет закрыта модальная форма.

Close

Закрывает указанную форму. Если форма является главной в приложении, то завершается работа всего приложения.

В следующем сообщении будет описано создание нескольких проектов для реального использования свойств и методов форм.

Читать на сайте автора.

Задачка на понимание №1

Основную идею задачек я подсмотрел у Александра Алексеева (более известного как GUNSMOKER), и подумал — а почему бы и мне не открыть такой подраздел, ибо

http://alexander-bagel.blogspot.com/2013/12/1.html

Delphi. Как указать папку "по умолчанию" для новых проектов

Надоело мне, что Delphi предлагает каждый новый проект сохранить в папке My documents. И задался я вопросом, а как бы эту папку изменить. Оказалось – очень просто. Настолько просто, что даже и рассказывать тут не о чем. Но я всё-таки расскажу так как я (почему-то) долгое время считал, что такой опции просто нет.
Главное меню –> Tools –> Options –> Environment Options –> Default Project
Или, с помощью IDE insight: Ctrl+. ввести default project + Enter

В Delphi XE-XE5 эти настройки хранятся в реестре:
HKEY_CURRENT_USERSoftwareEmbarcaderoBDS12.0GlobalsDefaultProjectsDirectory
Тип данных: REG_SZ

[[ This is a content summary only. Visit my website for full links, other content, and more! ]]

Читать на сайте автора.

1. Начало работы с RAD Studio

После успешной инсталляции на вашем компьютере RAD Studio можно начать изготавливать полезные программы с помощью этой замечательной системы быстрой (и качественной) разработки программ.

Для запуска на выполнение RAD Studio XE3 нужно щелкнуть мышью по кнопке Пуск, выбрать Все программы, затем Embarcadero RAD Studio XE3, в появившемся меню выбрать элемент RAD Studio XE3. Появится главное окно программы.

Для создания нового проекта (программы) в Delphi нужно в этом окне щелкнуть мышью по элементу главного меню File, в выпадающем списке выбрать New и в появившемся субменю выбрать элемент VCL Forms Application — DelphiБудет создана пустая форма.


В центре располагается форма, в левом нижнем углу — Инспектор объектов (Object Inspector), в правом нижнем углу — Панель инструментов (Tool Palette).

Инспектор объектов позволяет изменять характеристики выбранного на форме компонента. Он содержит две вкладки — Properties (свойства) и Events (события).

Во вкладке Properties содержится список свойств текущего компонента формы или самой формы. Во вкладке Events присутствует список событий, допустимых для данного компонента.

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

Созданную пустую форму можно тут же запустить на выполнение. Для этого нужно щелкнуть по кнопке 

или нажать клавиши Shift+Ctrl+F9.

Через несколько секунд после трансляции появится пустая форма. Ее можно перемещать по экрану обычным образом, изменять размеры, максимизировать, сворачивать.

Для закрытия формы нужно щелкнуть мышью по кнопке закрытия в правом верхнем углу формы.

Сейчас давайте установим некоторые свойства формы, создадим классическую программу, которую вначале создают практически все специалисты, обучающие программистов началам использования языков программирования и средств быстрой разработки программ. Я имею в виду программу Hello world, иными словами — здравствуй мир.

Установите заголовок формы — текст «Привет всем!». Для этого в Инспекторе объектов найдите свойство Caption и наберите в правой части этого свойства текст Привет всем!.

Далее сделайте так, чтобы форма при запуске на выполнение располагалась в центре экрана. Для этого в Инспекторе объектов для свойства Position из выпадающего списка справа выберите значение poScreenCenter.

Перейдите к Панели инструментов (Tool Palette). Раскройте список Standard, щелкните мышью по строке TLabel, а затем по любому месту на форме. На форме будет размещен компонент Метка (label). Установите его свойство Caption в значение «Привет ребята (и девчата)». Переместите на форме мышью компонент так, чтобы он выглядел достаточно презентабельным, то есть, в центре окна.






Запустите программу на выполнение и получите удовольствие от созданного простого, но доброжелательного проекта.




Для того чтобы создать такой же проект в C++ Builder, нужно в меню File выбрать Newа затем элемент VCL Forms Application — C++.

Также будет создана новая пустая форма. Инспектор объектов и Панель инструментов выглядят таким же образом, как и в случае создания проекта Delphi (на начальном уровне разработки).

При запуске на выполнение программы будет точно такая же форма с теми же характеристиками.

Задайте форме те же свойства и поместите на форму компонент метки, что и при работе с формой Delphi, и запустите на выполнение. Вы видите, что внешний вид точно такой же.

* * *

В следующий раз мы рассмотрим многие наиболее важные свойства формы и поэкспериментируем с ними, чтобы увидеть, какие полезные возможности нам дает использование RAD Studio.

Читать на сайте автора.

Запуск “самого себя” с правами NT AUTHORITY

Читать на сайте автора.

0. Введение

Здесь я собираюсь поделиться своими знаниями и некоторым опытом в области программирования с другими программистами и с теми, кто собирается стать программистом.

Программирование вообще — это огромная область человеческой деятельности. Нельзя научиться с блеском писать гениальные программы на различных языках в различных средах разработки для различных операционных систем. По этой причине серьезным разработчикам следует посвятить немалое время для изучения и использования конкретных систем.

Я хочу рассказать о двух системах, с которыми давно и, должен признаться, с удовольствием работаю. Это системы Delphi и C++Builder. Их поддержкой и развитием на сегодняшний день занимается компания Embarcadero. В Интернете сведения о компании и ее продуктах можно найти на сайте www.embarcadero.com.

Delphi и C++Builderназываются интегрированными средами разработки (IDE, Integrated Development Environment). В основе Delphi лежит расширенный язык Объектный Паскаль, в основе C++Builder — язык C++. Их интегрированные среды очень похожи, а используемые языки различаются. Какой язык выбрать, решает разработчик или руководство его компании.

Я собираюсь неспеша начать рассматривать средства разработки программ, компоненты и языковые конструкции с тем, чтобы вы получили необходимые сведения для создания реально нужных общественному прогрессу программ. Надеюсь, этот материал будет полезен и моим студентам, рвущимся к знаниям в области программирования.

Приступим.

Читать на сайте автора.