Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Creating a form - a function controls it!

Posted on 2000-05-02
10
Medium Priority
?
218 Views
Last Modified: 2010-04-04
I want to do a function. I'll control my form creation (my application will show only one form, non-modal)...

Here is the code:

function abreform(instancia: tcomponentClass; var Reference): boolean;
begin
   abreform := false;
   if not Assigned(tform(reference)) then
      begin
      application.CreateForm(instancia, Reference);
      abreform := true;
      end  
   else
      messagedlg('The form is opened', mtinformation, [mbok], 0);
end;

The problem is after the first form creation... The function don't restart the variable and returns 'Form is opened'... I've closed the respective form, and I did the caFree command...

Can you help me?!?

Thanks a lot!

Best regards,

Ricardo Baitz
0
Comment
Question by:baitz
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 4
  • 2
10 Comments
 
LVL 10

Expert Comment

by:Lischke
ID: 2769484
Hi Ricardo,

this is the typical case where newbies have their problems with. Delphi does not automatically reset a reference variable to nil when the reference it points to is destroyed.

There's no harm (usually) when you set a forms reference variable to nil in the forms OnClose event. With Delphi 5 there's function FreeAndNil but you must not use this function within an event of the particular class as it frees the class for you are still executing code. But you can save assing nil to the reference variable.

Ciao, Mike
0
 
LVL 10

Expert Comment

by:ECollin
ID: 2769491
did you set your from to "nil" ?
0
 
LVL 10

Expert Comment

by:ECollin
ID: 2769493
did you set your form to "nil" after the caFree ?
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:baitz
ID: 2769525
Thks a lot! The problem was a nill after cafree...
0
 

Author Comment

by:baitz
ID: 2769526
This question has a deletion request Pending
0
 
LVL 10

Expert Comment

by:Lischke
ID: 2769658
This question no longer is pending deletion
0
 
LVL 10

Accepted Solution

by:
Lischke earned 200 total points
ID: 2769660
Fine that I solved your problem. You should now accept one of my comments as answer and not just delete the question. This is not fair!

To make your decision easier I post an answer so you just need to accept.

Ciao, Mike
0
 

Author Comment

by:baitz
ID: 2812207
Thank you, mike... Your answer are correct... I don't read it in my book!

You was a lot of fast!
0
 

Author Comment

by:baitz
ID: 2812214
And more: Only today I've entered here to transfer the points... Too late, but transfered!
0
 
LVL 10

Expert Comment

by:Lischke
ID: 2813459
Okey, dokey :-)
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Sometimes it takes a new vantage point, apart from our everyday security practices, to truly see our Active Directory (AD) vulnerabilities. We get used to implementing the same techniques and checking the same areas for a breach. This pattern can re…
In response to a need for security and privacy, and to continue fostering an environment members can turn to for support, solutions, and education, Experts Exchange has created anonymous question capabilities. This new feature is available to our Pr…
Suggested Courses

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question