Модальные формы и события

ASH · January 2005

Я хочу из скрипта выполнить вот такой код:

var
  A,F:TForm;

  procedure CC;
  begin
    A:=TForm.Create(Application);
    A.ShowModal;
    A.Free;
  end;

begin
  F:=TForm.Create(Application);
  F.OnClick := @CC;
  F.ShowModal;
  F.Free;
end.

Но после клика по первой форме компилятор уходит в глухой цикл обработки и никогда из него не выходит.. как быть?

-=Serg=- · January 2005

Только что проверил - все работает.
Только вторая форма появляется сверху первой и полностью на ней похожа

Ты ее мышкой сдвинь...

ASH · January 2005

написал:

Ты ее мышкой сдвинь...

не прикалуйся!
что формы одинаковые это и так ясно.. если более подробно, то делаю так:
В качестве компилятора скрипта юзаю вот этот пример
\FastScript\Demos\Main\
в нем в мемо пишу этот самый код.. запускаю, жму на форму... все приплыли..
дебагер говорит, что воткнулись вот тут:

function TfsDesignator.DoCalc(...)
...
begin
...
  if (Item is TfsCustomHelper) and not Item.IsMacro then
->    while Item.FLocked do;
...

У меня 5 делфа (так на всякий случай) версия fs-1.8, так как?

-=Serg=- · January 2005

написал:

не прикалуйся!

Не веришь? Попробуй этот код:

var
 A,F:TForm;

 procedure CC;
 begin
   A:=TForm.Create(Application);
//++++++++++++++
   A.Top := 50;
   A.Left := 50;
//++++++++++++++
   A.ShowModal;
   A.Free;
 end;

begin
 F:=TForm.Create(Application);
 F.OnClick := @CC;
 F.ShowModal;
 F.Free;
end

ASH · January 2005

ты все же прикалуешся!
попробовал.. то же самой ожидаемого окошка, сдвинутого на 50:50 не появилось! програма застряла в глухом цикле! (см. ранее)

ASH · January 2005

Да и вот еще что в версии FS1.6 (да и 1.7 я думаю) код действительно работает без проблем, а вот в 1.8 происходит вышеописаный втык..

Модальные формы и события

Комментарии

Оставить комментарий