[Aristarh Dark]

Вопрос на засыпку.
Допустим имеем форму:

Код:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
 Button1: TButton;
 procedure FormShow(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
 Button1.Visible:=False;
end;

end.

Если, из внешнего модуля, мы сделаем вот такой вызов:

Код:

 Unit1.Form1.Show;

то кнопка станет невидимой.
Теперь собственно вопрос:
У меня несколько форм, вызовы метода Show я делаю примерно вот таким образом:

Код:

 for i:=0 to SomeFormCantainer.Count-1 do
 (SomeFormContainer[i] as TForm).Show;

и, что вполне понятно, вызывается метод Show не конкретной формы, а их общего предка TForm. И, как следствие, нужный мне код не отрабатывает.
Кто нибудь знает как вызвать метод именно той формы которая хранится в контейнере?

[M.A.D.M.A.N.]

Функцию виртуальную сделать и переопределять на потомке, а вызов из FormShow сделать на общем предке. Или не пойдет?

[M.A.D.M.A.N.]

Это вопрос-ловушка?

[Aristarh Dark]

Нет никакой ловушки, достался код в наследство. Думаю как минимальными потерями сделать.

ЗЫЖ Виртуальная функция не канает, ибо переписывать много придется.

[Aristarh Dark]

И никто, и нмчего? Идеи?

[lmikle]

Сообщение от Aristarh Dark

И никто, и нмчего? Идеи?

RTTI???
Просто залезть в конкретный экземпляр и если есть нужный метод, то дернуть его.