Показать сообщение отдельно
  #7  
Старый 23.04.2011, 21:35
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

может я не правильно понял, но тесатовый пример работает у меня как часы - 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;
Иль не то?
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием