How can i get the name of the Form, that i've called Showmodal one step before ( parentform )

Hello,

i am using Delhpi 7, and would like to get the parent form name after called Showmodal.

when i place a button on the main form ( called : Main_1 ), and create a new form ( called . Parent_1 ), the buttonclick does : showmodal Parent_1.

and when the active form is Parent_1, i wolud like to get it's parent name ( Main_1 ).

can anyone help me?
regards
Tamas
RT_Asked:
Who is Participating?
 
Ephraim WangoyaConnect With a Mentor Commented:

Two ways I can think of

1. Make the calling form the Owner of the form being created

    Form2 := TForm2.Create(Self);  //where self is the current form

    Then in Form2 to get the calling forms name/title you can use
    if (Owner is TForm) then
       TitleOfCaller := TForm(Owner).Caption
    //or
    //nameOfCaller := TForm(Owner).name

2.   Add the parent form title to the form and pass it on create

    TForm2 = class(TForm)
    .........
    private
       FParentFormTitle: string;
     ........
    public
       property ParentFormtitle: string read FParentFormTitle write FParentFormTitle;
    end;

    when calling from MainForm
    Form2 := TForm2.Create(Application);
    try
      Form2.ParentFormTitle := Caption;
      Form2.ShowModal;
    finally
      FreeAndnil(Form2);
    end;


0
 
RT_Author Commented:
lot of thanks!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.