Ваш браузер устарел. Рекомендуем обновить его до последней версии.




 



 


Delphi

 

 


Урок 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.


Flag Counter
Яндекс.Метрика
200stran.ru: показано число посетителей за сегодня, онлайн, из каждой страны и за всё время
Besucherzahler russain brides
счетчик посещений

Выбери лучшее!

allbest