Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.55K
1 Posted Topic
 | try this... make the following routine available for your instigating button. procedure OpenFormModal(dForm:Integer); var tForm:Integer; begin tForm:=dForm; while (tForm>0) do begin case tForm of 1: begin Form1.ShowModal; tForm:=Form1.Tag; end; 2: begin Form2.ShowModal; tForm:=Form2.Tag; end; end; end; end; Notes: Call this routine from the mainform to start the process. set dForm … |
The End.