Урок 23 Создание приложений в RAD Studio 10.3 на Delphi для платформ Android, Apple iOS и Mac OS
До недавнего времени конкретная среда программирования позволяла строить приложения для устройств работающих только на какой то определенной платформе. Универсальная RAD Studio сломала этот стереотип. Теперь возможно в одной среде программирования создавать приложения для самых разных платформ. RAD Studio 10.3 позволяет строить приложения как в Delphi, так и в C++Builder по выбору разработчика програмного обеспечения.
Приступим к построению приложения в среде Delphi для устройств работающих на платформе Android. После загрузки среды RAD Studio 10.3 откройте новый проект в главном меню выбрав File – New – Multi-Device Application-Delphi. Для начала выберите, например, Blank Application (приложение с пустой формой). Выберите платформу, устройство и сохраните проект во вновь созданную папку. Далее положите на форму нужные вам компоненты и переходите к написанию программного кода в Delphi. По окончании работы над приложением готовый APK-файл можно найти в папке вашего проекта по этому пути \Android\Debug\Project15\bin.
Обратите внимание что в uses на смену библиотекам визуальных компонентов VCL (Visual Component Library) пришли FMX (FireMonkey). FireMonkey Stencils предназначены для дизайнеров, которые сотрудничают с разработчиками ПО в RAD Studio.
.
unit Unit2;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Layouts, FMX.ExtCtrls, FMX.Media, FMX.Controls.Presentation, FMX.Calendar;
type
TForm2 = class(TForm)
ImageViewer1: TImageViewer;
ImageControl1: TImageControl;
ImageControl2: TImageControl;
ImageControl3: TImageControl;
ImageControl4: TImageControl;
procedure ImageControl4Click(Sender: TObject);
procedure ImageControl2Click(Sender: TObject);
procedure ImageControl1Click(Sender: TObject);
procedure ImageControl3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.fmx}
procedure TForm2.ImageControl1Click(Sender: TObject);
begin
ImageControl4.Visible := true;
ImageControl3.Visible := true;
ImageControl2.Visible := true;
end;
procedure TForm2.ImageControl2Click(Sender: TObject);
begin
ImageControl3.Visible := false;
end;
procedure TForm2.ImageControl3Click(Sender: TObject);
begin
ImageControl4.Visible := false;
end;
procedure TForm2.ImageControl4Click(Sender: TObject);
begin
ImageControl1.Visible := true;
ImageControl2.Visible := false;
end;
end.
Выбери лучшее! allbest |