ShowModal Must Close Twice?

← →
azsd © (2003-11-22 04:43) [0]

For a example,in Form1,Use Form2.Form.showModal,You must close twice form2,the first you click closeicon,It"s only "switch back" under form1.
Drag form2 out of form1"s rect you will see the strange windows clearly.
I guess is it the Showmodal methods,it"s attach the form2 to WndProcShowModal,When this process end,the second close cause PostMessage( CurForm.Handle, WM_ACTIVATE, WA_ACTIVE, 0 );
I am try to fix it,I change some code but it seems no effect.

← →
Gandalf © (2003-11-22 11:24) [1]

RTFM! Read FAQ about Modal Forms!

← →
SPeller © (2003-11-22 11:29) [2]

Я давно отослал Владимиру решение проблем с модальными формами практически вне зависимости от наличия Аплета. Только, всё никак не получается у них попасть в КОЛ.

← →
azsd © (2003-11-22 14:49) [3]

What a shamed am I....
Yes,I add the Form2.form.Free after Form2.form.ShowModal.
The Form2Close correctly,
mm,But When the second time I showmodal the form2,
Delphi Popup Message ""Read of address at "00165394""
and Debug Cursor Stop at Object.pas"s this line:
[code]
InstFreeList := Instance^.Next;
[/code]
I have a RarInfoBar placed on Form2.
I get the control from http://bonanzas.rinet.ru/e_visual.htm
If I Comment the source line Form2.form.Free,my application can still work,surly I know There are more and more Form2 to be created.
Or put RarProgressBar in a modalform can cause that problem samely.
Is the problem caused by Rarinfobar or Object.pas is little old for Newer KOL?
I click the English Forum link in http://bonanzas.rinet.ru,But that Forum"s latest post are 20002 years....
a RTFM(is it means Really True Foolish Men)...
:_(

← →
Gandalf © (2003-11-22 15:03) [4]

2azsd
Are you create the form after free, and before again show?

2Speller
Can you... т.е. можешь и мне послать у меня тоже FAQ есть :)

← →
azsd © (2003-11-22 15:34) [5]

To Gandalt,It is my code:
procedure TForm1.Button1Click(Sender: PObj); begin NewForm2(Form2,Applet); Form2.Form.ShowModal; Form2.Form.Free; end;
I Create The form and show it.
There only a RarinfoBar on Form2.
I try to Change the code to
procedure TForm1.Button1Click(Sender: PObj); begin if Form2=nil then NewForm2(Form2,Applet); Form2.Form.ShowModal; Form2.Form.Free; end;
Then The strange things a hollow Form2 popuped,
It is means the Form2 is not completely Destoryed?
the Object.pas get from hxxp://bonanzas.rinet.ru "s KOLObject.zip
Or I uploaded one project zip on my website,
http://dangban.nyist.net/pub/gamerip/InfoBarDemo.zip

Azsd Ae 2003 11 12

← →
SPeller © (2003-11-22 16:23) [6]

> 2Speller
> Can you... т.е. можешь и мне послать у меня тоже FAQ есть
> :)

:))

Я уже чёрт пойми сколько сижу на версии 1.77, потому что у меня есть изменения, которые всё никак не могут попасть в текущий КОЛ. Сижу вот и жду, когда же они появятся, чтобы обновиться.

← →
Vladimir Kladov (2003-11-22 20:21) [7]

Я давно отослал Владимиру решение проблем с модальными формами практически вне
зависимости от наличия Аплета. Только, всё никак не получается у них попасть в КОЛ.

и это все потому, что
1. мне сейчас некогда переводить на асм, а без асма вставлять это смысла нет.
2. проще добавить апплет
3. затрагивает основы, и значит нуждается в долгой и тщательной проверке, на что у меня сейчас нет ни времени ни сил. И кто там ратовал за то, чтобы ifdef"ами повыбрасывать лишнее из ядра? По-моему, как раз то случай. Проще и не вставлять.

Сорри.

← →
SPeller © (2003-11-22 20:45) [8]

> 1. мне сейчас некогда переводить на асм, а без асма вставлять
> это смысла нет.

Да я и не тороплюсь особо. Можно и подождать.

> 2. проще добавить апплет

Лишний код. И не выход это - глюки модальности исправлять дополнительными объектами, которые ещё и побочные эффекты проявляют по отношению к программе.

> 3. затрагивает основы, и значит нуждается в долгой и тщательной
> проверке, на что у меня сейчас нет ни времени ни сил. И
> кто там ратовал за то, чтобы ifdef"ами повыбрасывать лишнее
> из ядра? По-моему, как раз то случай.

Я и не против чтобы кому не надо не включали нормальную поддержку модальности. Надо - включил, не надо - ни кто не заставляет включать.

← →
Gandalf © (2003-11-26 12:32) [9]

2Azsd - "Free" never set variable to nil, you must do it by your hands.

About InfoBarZip.zip - as I can see - all OK in you code - but RarInfoBar - incorrect. It"s uses old style for Visula component writing and make so errors. I am too lazy but why it used AutoFree in New - it"s MCK feature and some wild manipulations with WND_PROC may be incorrect.

← →
azsd © (2003-11-26 16:23) [10]

Thanks Grandalf,
Yes,I Commented these Codes in KOLRarBar.pas "s NewTRarInfoBar Function:
// AOwner.Add2AutoFree(P); // AOwner.Add2AutoFree(C);
then add
P.Free; C.Free;
in TRarBar.Destroy,Surely I Move the
var P: PRarBar;
C: PControl;
to The end to Type,Then my same code with Form.free works Fine.
The RarProgressBar has same small bug.
I don"t know whether my change is make other unknown bugs,
and I don"t know Is it necessary to contact author to report the bugs.
Azsd Ae 2003 11 26

Glad to help ;)

If you know address contact with author if don"t wrote to Kladov. All bug"s must be fixed - KOL not VCL.

Hi,Gandalf
his Mailbox Always spam my Mail Server"s IP.
<dimaxx@atnet.ru>: host relay0.atnet.ru[80.82.180.7] said: 550 5.0.0 Spam from 202.129.120.51 25 Apr 2003 00:53:17+0400

I use some differents mail server to send my bugreport mail,it has same result:reject as spam by his server.
Could you,or someone help me to contact him?

Azsd ae 2003 11 28

I can. Send your message to me: speller_at_mail.primorye.ru and I will try to send message to him.

I"ve send mail to him with bug report.

Hi speller,but I think my mail server are list in the world anti spam list.thanks all the same.
To Gandalf,Thx
By the way,Is your VMHSyntaxEdit and VMHpasHighlighter only works for D5/7?
Or I haven"t correct methods to use them?
My Delphi version is 6.0,after I install the two compents I put both them in form and has selected SyntaxEdit"s Highter,
But after I use syntaxedt.lines.loadfromfile,only black rects displayed.
I try change highlighter"s xxxxAttri colors,It take no effect.
it"s only cause when I try the serial packages which pre-MH,I havent use it in actual codes.

ShowModal Must Close Twice? Найти похожие ветки