Проблемы с фокусом

[patrikey]

Добрый день.

Проблема: при закрытии модального окна, на главной форме все компоненты остаются неактивными. Перепробовал всё что нашёл в Гугле. Ничего не помогло. Помогите, если кто сталкивался с подобной проблемой.

[Равиль Зарипов (ZuBy)]

демо-пример можно где это воспроизводится, только без воды

[patrikey]

Вот полный код.

Скрытый текст

unit MainUnit;

interface

uses
  FMX.Types, FMX.Controls, FMX.Forms, FMX.StdCtrls,FMX.Grid, FMX.Objects,
  System.Rtti, FMX.Layouts, System.Classes,FMX.Controls.Presentation;

type
  TMainForm = class(TForm)
    StyleBook1: TStyleBook;
    Set_Filter: TButton;
    MainGrid: TStringGrid;
    StringColumn1: TStringColumn;

    procedure MainGridDblClick(Sender: TObject);

  private

  public

  end;

  TItemCard = Class(TForm)


  private

  public

  end;

var
  MainForm: TMainForm;
  ItemCard: TItemCard;

implementation

{$R *.fmx}

procedure TMainForm.MainGridDblClick(Sender: TObject);

 begin
 ItemCard := TItemCard.CreateNew(Self);

  with ItemCard do begin
  Top := Round(MainForm.Top + MainGrid.Position.Y + MainGrid.Height*0.3);
  Left := Round(MainForm.Left + MainGrid.Position.X + MainGrid.Width*0.3);
  Width := Round(MainGrid.Width*0.3);
  Height := Round(MainGrid.Height*0.4);
  end;

  try
  ItemCard.ShowModal;
  finally
  ItemCard.Free;
  end;

 end;


end.

 

Storgae.zip

Изменено 18 мая, 2017 пользователем Andrey Efimov
добавил спойлер