Category Archives: FireMonkey

Delphi. FireMonkey. Модальные окна

Posted on 28.06.2018 by Stanislav_Panteleev

В Android нет модальных окон, в Windows они есть. Обойти это можно так.

procedure TfrmParent.TestModalWindowClick(Sender: TObject);
var
  f: TForm1;
begin
  f := TForm1.Create(Self);
  f.ShowModal(procedure(ModalResult : TModalResult)
                begin
                  if ModalResult = mrOK then
                    // do something here
                end);
end;

procedure TfrmParent.TestModalWindowClick(Sender: TObject);

var

f: TForm1;

begin

f := TForm1.Create(Self);

f.ShowModal(procedure(ModalResult : TModalResult)

begin

if ModalResult = mrOK then

// do something here

end);

end;

Уничтожить форму можно в момент закрытия

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := TCloseAction.caFree;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := TCloseAction.caFree;

end;

Гениально и просто !) Взял отсюда

Posted in Delphi, FireMonkey | Comments Off

Delphi. FireMonkey. Get IMEI

Posted on 24.06.2018 by Stanislav_Panteleev

Получение IMEI, пример работает на Delphi Berlin

function TSplashForm.GetIMEI: string;
var
  obj: JObject;
  tm: JTelephonyManager;
  identifier: String;
begin
  obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
  if obj <> nil then
    begin
      tm := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );
        if obj<>nil then
          identifier := JStringToString(tm.getDeviceId);
    end;
  if identifier = '' then
    identifier := JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver,TJSettings_Secure.JavaClass.ANDROID_ID));
  Result:=identifier;
end;

function TSplashForm.GetIMEI: string;

var

obj: JObject;

tm: JTelephonyManager;

identifier: String;

begin

obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);

if obj <> nil then

begin

tm := TJTelephonyManager.Wrap( (obj as ILocalObject).GetObjectID );

if obj<>nil then

identifier := JStringToString(tm.getDeviceId);

end;

if identifier = '' then

identifier := JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver,TJSettings_Secure.JavaClass.ANDROID_ID));

Result:=identifier;

end;

Posted in Delphi, FireMonkey | Comments Off

Delphi. FireMonkey. Настраиваем SDK, NDK, Java

Posted on 22.06.2018 by Stanislav_Panteleev

Пишу небольшое приложение на FireMonkey для Android, пару часов настраивал вкладку SDK Manager, скачивал SDK, NDK, JRE, выставлял пути сам пару часов, бился об ошибки, но Delphi оказался умнее, надо было просто нажать кнопку на Add и далее Delphi ищет … Continue reading →

Posted in Delphi, FireMonkey | Comments Off

Delphi. FireMonkeyStyles

Posted on 14.10.2017 by Stanislav_Panteleev

Posted in Delphi, FireMonkey | Comments Off

Delphi. FireMonkey. Первое приложение под Android – “Позвони маме”

Posted on 07.10.2016 by Stanislav_Panteleev

В Delphi, насколько я вижу, под Android можно писать на Firemonkey – и тогда мы получим нативное приложение. А можно писать при помощи UniGUI фрэймворка и тогда мы получим приложение работающее через браузер, основанное на популярной библиотеке jQueryMobile. Плюс первого … Continue reading →

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Delphi. Get | Post запросы. Работа с cookie. HTTP Analyzer

Posted on 06.12.2015 by Stanislav_Panteleev

Итак, в данном материале – расширим немного работу с Get | Post запросами. “Пошпионим” немного за веб-сервисами с помощью замечательной программы HTTP Analyzer, по-другому именуемой “сниффер”. Для тех, кто не знаком с тем, что это такое – привожу краткое определение … Continue reading →

Posted in Delphi, Delphi и сети, FireMonkey, Indy, Парсинг | Comments Off

Работа с дисками, папками, файлами. Обзор System.IOUtils

Posted on 14.11.2015 by Stanislav_Panteleev

uses System.IOUtils Список и размер дисков

procedure TForm1.bGetDisksClick(Sender: TObject);
var SDA:TStringDynArray; i:integer;
begin
 Combobox1.Clear;
 SDA:=Tdirectory.GetLogicalDrives;
 for i := 0 to High(SDA) do 
   Combobox1.Items.Add(SDA[i]);
 Combobox1.ItemIndex:=0;
end;

//Размер диска (на примере диска С это номер 3 функции DiskSize)
//Выводим в ListBox
ListBox1.Clear; 
ListBox1.Items.Add( inttostr( DiskSize(3))+'   bytes'  ) ;

procedure TForm1.bGetDisksClick(Sender: TObject);

var SDA:TStringDynArray; i:integer;

begin

Combobox1.Clear;

SDA:=Tdirectory.GetLogicalDrives;

for i := 0 to High(SDA) do

Combobox1.Items.Add(SDA[i]);

Combobox1.ItemIndex:=0;

end;

//Размер диска (на примере диска С это номер 3 функции DiskSize)

//Выводим в ListBox

ListBox1.Clear;

ListBox1.Items.Add( inttostr( DiskSize(3))+' bytes' ) ;

Сбор сведений о каталогах и файлах

procedure TForm1.GetDirsAndFilesClick(Sender: TObject);
var SDA:TStringDynArray; i:integer;
begin
SDA:=TDirectory.GetFileSystemEntries('C:\','*.*');
ListBox1.Clear;
for i := 0 to High(SDA) do 
  ListBox1.Items.Add(SDA[i]);
end;
{Также полезные функции GetFiles и GetDirectories}

procedure TForm1.GetDirsAndFilesClick(Sender: TObject);

var SDA:TStringDynArray; i:integer;

begin

SDA:=TDirectory.GetFileSystemEntries('C:\','*.*');

ListBox1.Clear;

for i := 0 to High(SDA) do

ListBox1.Items.Add(SDA[i]);

end;

{Также полезные функции GetFiles и GetDirectories}

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

TAction simple example (Copy Cut Paste)

Posted on 13.11.2015 by Stanislav_Panteleev

На форме FireMonkey – Memo, ActionList, MainMenu В ActionList добавим 3 элемента acCopy acCut acPaste Напишем обработчики для элементов ActionList

procedure TForm1.acCopyExecute(Sender: TObject);
begin
  Memo.CopyToClipboard;
end;

procedure TForm1.acCutExecute(Sender: TObject);
begin
  Memo.CutToClipboard;
end;

procedure TForm1.acPasteExecute(Sender: TObject);
begin
  Memo.PasteFromClipboard;
end;

procedure TForm1.acCopyExecute(Sender: TObject);

begin

Memo.CopyToClipboard;

end;

procedure TForm1.acCutExecute(Sender: TObject);

begin

Memo.CutToClipboard;

end;

procedure TForm1.acPasteExecute(Sender: TObject);

begin

Memo.PasteFromClipboard;

end;

Далее – актуализируем через Update

procedure TForm1.acCopyUpdate(Sender: TObject);
begin
  acCopy.Enabled := (Memo.SelLength>0);
end;

procedure TForm1.acCutUpdate(Sender: TObject);
begin
  acCut.Enabled:=(Memo.SelLength>0)
end;

procedure TForm1.acPasteUpdate(Sender: TObject);
var 
  Clip:IFMXClipboardService; 
  s:string;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(Clip)) then
  begin
    s:=Clip.GetClipboard.ToString;
    acPaste.Enabled:=s.Length>0
  end 
  else 
    acPaste.Enabled:=false;
end;

procedure TForm1.acCopyUpdate(Sender: TObject);

begin

acCopy.Enabled := (Memo.SelLength>0);

end;

procedure TForm1.acCutUpdate(Sender: TObject);

begin

acCut.Enabled:=(Memo.SelLength>0)

end;

procedure TForm1.acPasteUpdate(Sender: TObject);

var

Clip:IFMXClipboardService;

s:string;

begin

if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(Clip)) then

begin

s:=Clip.GetClipboard.ToString;

acPaste.Enabled:=s.Length>0

end

else

acPaste.Enabled:=false;

end;

Posted in Delphi, FireMonkey | Comments Off

PopupMenu

Posted on 12.11.2015 by Stanislav_Panteleev

Самый простой способ подключить TPopupMenu – воспользоваться свойством PopupMenu. На рис. ниже пример для компонента TImage Но, к сожалению не у всех компонентов есть это свойство, например, его нет у TForm. Если у компонента нет свойства Popup, то можно подключить … Continue reading →

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Ресурсы

Posted on 12.11.2015 by Stanislav_Panteleev

Зачем нужны ресурсы? Чтобы защитить нужные файлы от изменений, скрыть от пользователя. И также, насколько я понимаю, если проводить аналогию с физическим миром это что-то вроде склада, где по отдельному идентификатору можно вызвать то или иное изображение, видео или другой … Continue reading →

Posted in Delphi, FireMonkey | Comments Off

Category Archives: FireMonkey

Delphi. FireMonkey. Модальные окна

Delphi. FireMonkey. Get IMEI

Delphi. FireMonkey. Настраиваем SDK, NDK, Java

Delphi. FireMonkeyStyles

Delphi. FireMonkey. Первое приложение под Android – “Позвони маме”

Delphi. Get | Post запросы. Работа с cookie. HTTP Analyzer

Работа с дисками, папками, файлами. Обзор System.IOUtils

TAction simple example (Copy Cut Paste)

PopupMenu

Ресурсы

MY PROJECTS

Recent Posts

Categories