• 0
patrikey

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

Вопрос

Добрый день.

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

2 ответа на этот вопрос

  • 0

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

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



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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу