_I_Play_Chess
11-29-2003, 11:18 AM
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD colSpan=2>Communicating Between Forms <!-- End of Headline --></TD></TR>
<TR>
<TD bgColor=#cc0000 colSpan=2 height=1><IMG height=1 src="http://images.about.com/all/bullets/dot_clea.gif" width=1 border=0></TD></TR>
<TR>
<TD colSpan=2>Page 1: Finding out how a modal form was closed</TD></TR></TBODY></TABLE>Welcome to the Fourteenth chapter of the FREE online programming course:
In the previous chapter we looked at simple SDI forms and considered some good reasons for not letting your program auto-create forms. This instalment builds on that to demonstrate techniques available when closing modal forms and how one form can retrieve user input or other data from a secondary form.
<H5 style="PADDING-LEFT: 10px; MARGIN-BOTTOM: 0px; COLOR: #000080">Finding out how a modal form was closed</H5>Modal forms offer specific features that we cannot have when displaying non-modally. Most commonly, we will display a form modally to isolate its processes from anything that might otherwise happen on the main form. Once these processes complete, you might want to know whether the user pressed the Save or Cancel button to close the modal form. You can write some interesting code to accomplish this, but it does not have to be difficult. Delphi supplies modal forms with the ModalResult property, which we can read to tell how the user exited the form.
The following code returns a result, but the calling routine ignores it:
<TABLE width="75%" bgColor=#ffffcc border=1>
<TBODY>
<TR>
<TD><PRE><B>var</B>
F:TForm2;
<B>begin</B>
F := TForm2.Create(<B>nil</B>);
F.ShowModal;
F.Release;
...
</PRE></TD><PRE></PRE></TR></TBODY></TABLE>The example shown above just shows the form, lets the user do something with it, then releases it. To check how the form was terminated we need to take advantage of the fact that the ShowModal method is a function that returns one of several ModalResult values. Change the line F.ShowModal to <B>if</B> F.ShowModal = mrOk <B>then</B> We need some code in the modal form to set up whatever it is we want to retrieve. There is more than one way to get the ModalResult because TForm is not the only component having a ModalResult property - TButton has one too. Let us look at TButton's ModalResult first. Start a new project, and add one additional form (Delphi IDE Main menu: File -> New -> Form). This new form will have a 'Form2' name. Next add a TButton (Name: 'Button1') to the main form (Form1), double click the new button and enter the following code:
<TABLE width="100%" bgColor=#ffffcc border=1>
<TBODY>
<TR>
<TD><PRE><B>procedure</B> TForm1.Button1Click(Sender: TObject);
<B>var</B> f : TForm2;
<B>begin</B>
f := TForm2.Create(<B>nil</B>);
<B>try</B>
<B>if</B> f.ShowModal = mrOk <B>then</B>
Caption := 'Yes'
<B>else</B>
Caption := 'No';
<B>finally</B>
f.Release;
<B>end</B>;
<B>end</B>;
</PRE></TD><PRE></PRE></TR></TBODY></TABLE><IMG height=237 alt="Object Inspector: ModalResult Property" src="http://delphi.about.com/library/graphics/071503_1.gif" width=190 align=left>Now select the additional form. Give it two TButtons, labelling one 'Save' (Name : 'btnSave'; Caption: 'Save') and the other 'Cancel' (Name : 'btnCancel'; Caption: 'Cancel'). Select the Save button and press F4 to bring up the Object Inspector, scroll up/down until you find the property ModalResult and set it to mrOk. Go back to the form and select the Cancel button, press F4, select the property ModalResult, and set it to mrCancel. It's as simple as that. Now press F9 to run the project. (Depending on your environment settings, Delphi may prompt to save the files.) Once the main form appears, press the Button1 you added earlier, to show the child form. When the child form appears press the Save button and the form closes, once back to the main form note that it's caption says "Yes". Press the main form's button to bring up the child form again but this time press the Cancel button (or the System menu Close item or the [x] button in the caption area). The main form's caption will read "No".
<P clear=all>How does this work? To find out take a look at the Click event for TButton (from StdCtrls.pas):
<TABLE width="100%" bgColor=#ffffcc border=1>
<TBODY>
<TR>
<TD><PRE><B>procedure</B> TButton.Click;
<B>var</B> Form: TCustomForm;
<B>begin</B>
Form := GetParentForm(Self);
<B>if</B> Form <> nil <B>then</B>
Form.ModalResult := ModalResult;
<B>inherited</B> Click;
<B>end</B>;
</PRE></TD><PRE></PRE></TR></TBODY></TABLE>What happens is that the Owner (http://delphi.about.com/library/weekly/aa031301a.htm) (in this case the secondary form) of TButton gets its ModalResult set according to the value of the TButton's ModalResult. If you don't set TButton.ModalResult, then the value is mrNone (by defaolt). Even if the TButton is placed on another control the parent form is still used to set its result. The last line then invokes the Click event inherited from its ancestor class. To understand what goes on with the Forms ModalResult it is worthwhile reviewing the code in Forms.pas, which you should be able to find in ..\DelphiN\Source (where N represents the version number). In TForm's ShowModal function, directly after the form is shown, a Repeat-Until loop starts, which keeps checking for the variable ModalResult to become a value greater than zero. When this occurs, the final code closes the form. You can set ModalResult at design-time, as described above, but you can also set the form's ModalResult property directly in code at run-time. Now, knowing whether the user wants to accept or reject what occurred on the child form, the calling form can react by using the information from the child form or ignoring it. Let's see how...
(to be continued)<!-- END CONTENT AREA B --><!-- Multi-page feature Navigation. Use this only if the feature has multiple pages. -->
<TBODY>
<TR>
<TD colSpan=2>Communicating Between Forms <!-- End of Headline --></TD></TR>
<TR>
<TD bgColor=#cc0000 colSpan=2 height=1><IMG height=1 src="http://images.about.com/all/bullets/dot_clea.gif" width=1 border=0></TD></TR>
<TR>
<TD colSpan=2>Page 1: Finding out how a modal form was closed</TD></TR></TBODY></TABLE>Welcome to the Fourteenth chapter of the FREE online programming course:
In the previous chapter we looked at simple SDI forms and considered some good reasons for not letting your program auto-create forms. This instalment builds on that to demonstrate techniques available when closing modal forms and how one form can retrieve user input or other data from a secondary form.
<H5 style="PADDING-LEFT: 10px; MARGIN-BOTTOM: 0px; COLOR: #000080">Finding out how a modal form was closed</H5>Modal forms offer specific features that we cannot have when displaying non-modally. Most commonly, we will display a form modally to isolate its processes from anything that might otherwise happen on the main form. Once these processes complete, you might want to know whether the user pressed the Save or Cancel button to close the modal form. You can write some interesting code to accomplish this, but it does not have to be difficult. Delphi supplies modal forms with the ModalResult property, which we can read to tell how the user exited the form.
The following code returns a result, but the calling routine ignores it:
<TABLE width="75%" bgColor=#ffffcc border=1>
<TBODY>
<TR>
<TD><PRE><B>var</B>
F:TForm2;
<B>begin</B>
F := TForm2.Create(<B>nil</B>);
F.ShowModal;
F.Release;
...
</PRE></TD><PRE></PRE></TR></TBODY></TABLE>The example shown above just shows the form, lets the user do something with it, then releases it. To check how the form was terminated we need to take advantage of the fact that the ShowModal method is a function that returns one of several ModalResult values. Change the line F.ShowModal to <B>if</B> F.ShowModal = mrOk <B>then</B> We need some code in the modal form to set up whatever it is we want to retrieve. There is more than one way to get the ModalResult because TForm is not the only component having a ModalResult property - TButton has one too. Let us look at TButton's ModalResult first. Start a new project, and add one additional form (Delphi IDE Main menu: File -> New -> Form). This new form will have a 'Form2' name. Next add a TButton (Name: 'Button1') to the main form (Form1), double click the new button and enter the following code:
<TABLE width="100%" bgColor=#ffffcc border=1>
<TBODY>
<TR>
<TD><PRE><B>procedure</B> TForm1.Button1Click(Sender: TObject);
<B>var</B> f : TForm2;
<B>begin</B>
f := TForm2.Create(<B>nil</B>);
<B>try</B>
<B>if</B> f.ShowModal = mrOk <B>then</B>
Caption := 'Yes'
<B>else</B>
Caption := 'No';
<B>finally</B>
f.Release;
<B>end</B>;
<B>end</B>;
</PRE></TD><PRE></PRE></TR></TBODY></TABLE><IMG height=237 alt="Object Inspector: ModalResult Property" src="http://delphi.about.com/library/graphics/071503_1.gif" width=190 align=left>Now select the additional form. Give it two TButtons, labelling one 'Save' (Name : 'btnSave'; Caption: 'Save') and the other 'Cancel' (Name : 'btnCancel'; Caption: 'Cancel'). Select the Save button and press F4 to bring up the Object Inspector, scroll up/down until you find the property ModalResult and set it to mrOk. Go back to the form and select the Cancel button, press F4, select the property ModalResult, and set it to mrCancel. It's as simple as that. Now press F9 to run the project. (Depending on your environment settings, Delphi may prompt to save the files.) Once the main form appears, press the Button1 you added earlier, to show the child form. When the child form appears press the Save button and the form closes, once back to the main form note that it's caption says "Yes". Press the main form's button to bring up the child form again but this time press the Cancel button (or the System menu Close item or the [x] button in the caption area). The main form's caption will read "No".
<P clear=all>How does this work? To find out take a look at the Click event for TButton (from StdCtrls.pas):
<TABLE width="100%" bgColor=#ffffcc border=1>
<TBODY>
<TR>
<TD><PRE><B>procedure</B> TButton.Click;
<B>var</B> Form: TCustomForm;
<B>begin</B>
Form := GetParentForm(Self);
<B>if</B> Form <> nil <B>then</B>
Form.ModalResult := ModalResult;
<B>inherited</B> Click;
<B>end</B>;
</PRE></TD><PRE></PRE></TR></TBODY></TABLE>What happens is that the Owner (http://delphi.about.com/library/weekly/aa031301a.htm) (in this case the secondary form) of TButton gets its ModalResult set according to the value of the TButton's ModalResult. If you don't set TButton.ModalResult, then the value is mrNone (by defaolt). Even if the TButton is placed on another control the parent form is still used to set its result. The last line then invokes the Click event inherited from its ancestor class. To understand what goes on with the Forms ModalResult it is worthwhile reviewing the code in Forms.pas, which you should be able to find in ..\DelphiN\Source (where N represents the version number). In TForm's ShowModal function, directly after the form is shown, a Repeat-Until loop starts, which keeps checking for the variable ModalResult to become a value greater than zero. When this occurs, the final code closes the form. You can set ModalResult at design-time, as described above, but you can also set the form's ModalResult property directly in code at run-time. Now, knowing whether the user wants to accept or reject what occurred on the child form, the calling form can react by using the information from the child form or ignoring it. Let's see how...
(to be continued)<!-- END CONTENT AREA B --><!-- Multi-page feature Navigation. Use this only if the feature has multiple pages. -->