[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???
Просто залезть в конкретный экземпляр и если есть нужный метод, то дернуть его.

[dr. F.I.N.]

может я не правильно понял, но тесатовый пример работает у меня как часы - FromShow формы2 срабатывает(D6, WinXP).

Вариант №1:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: Pointer;
begin
  a := form2;
 TForm(a).Show;
end;

Вариант №2:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TObject;
begin
  a := form2;
 (a as TForm).Show;
end;

Иль не то?

[Aristarh Dark]

В моем случае это не прокатывало.
Но проблема была решена путем получения точки входа в FormShow, и если таковая имелась - выполнением метода.

[NumLock]

т.е. в этом примере кнопки видны на формах?
http://data.cod.ru/98764
что-то мне не вериться...