ShowModalMyForm

[Attid]

в коде очень часто и много встречается конструкция аля

Код: Выделить всё

  with TfmToy.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;

ну и по закону упращения жизни и поиска ошибок хотю это дело заменить на что-то вроде

Код: Выделить всё

ShowModalMyForm('TfmMyForm');

но вот как её реализовать ума не приложу =/

[alexs]

Вот аналог из моего кода:

Код: Выделить всё

procedure CreateSprForm(var AForm: TForm; FC: TFormClass);
begin
  if not Assigned(AForm) then
    AForm:=FC.Create(Application);
  AForm.Show;
  AForm.SetFocus;
  AlignSprWorkForm(AForm);
end;

и соответственно вызов:

Код: Выделить всё

  CreateSprForm(p45ZPCalcSalaryForm, Tp45ZPCalcSalaryForm);