Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


patrikey

Вопрос

Добрый день.

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

Ссылка на комментарий

Рекомендуемые сообщения

  • 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
добавил спойлер
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...