Модальная форма, из немодальной Опции

[sheka]

После метода Show формы нужно сделать "некоторые действия". Эта форма также должна быть модальной. Какие есть решения данного вопроса?
Callback функция - тяжеловатое решение: не хочется создавать тип функции, хранить параметры ф-ии, условие вызова (т.к. не всегда после show нужно выполнять "некоторые действия").
Есть ли какая-то информация по Callback методам? Или надо сделать фиктивную ф-ию, содержащую данный метод?

[sheka]

2 формы создаются статически: Главная и Модальная. Модальная показывается только из Главной, именно поэтому она должна быть модальной. FormShow устанавливает какие-то начальные значения для Модальной формы. Так как в Модальной форме func(param); при показе, но уже работая с начальными данными, должна выполняться не всегда, а только по заказу - появился такой вопрос.
Вот такое получилось:
Как можно "культурно" передать параметр?

procedure MainForm.BitBtn1Click(Sender: TObject);
begin
  ModalForm.param := '123';
  ModalForm.OnShow := ModalForm.ShowWithFunc;
  ModalForm.ShowModal;
end;

  public
    param: string; 
    procedure ShowWithFunc(Sender: TObject);

procedure ModalForm.ShowWithFunc(Sender: TObject);
begin
  FormShow(Self);
  func(param);
  Self.OnShow := FormShow;
end;

procedure TfrmViewMap.FormShow(Sender: TObject);
begin
//
end;

Сообщение отредактировано: sheka - 25.06.2012 17:47