<HTML><BODY>
<DIV>I dont have access the source of the other app to use COM, hence why I
didnt do it.</DIV>
<DIV>Its anotehr 3rd part app.</DIV>
<DIV> </DIV>
<DIV>Yeah its crazy, but was just playing :-)</DIV>
<DIV> </DIV>
<DIV>Jeremy</DIV>
<DIV><BR> </DIV>
<BLOCKQUOTE style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px;
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">-----Original
Message-----<BR>From: "Kyley Harris" <kyley@harrissoftware.com><BR>To:
"NZ Borland Developers Group - Delphi List" <delphi@ns3.123.co.nz><BR>
Date: Wed, 5 Apr 2006 16:29:31 +1200<BR>Subject: RE: [DUG] Assigning a forms
parent<BR><BR>
<DIV class=Section1>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">That’s what com was
invented for. Use the <?xml:namespace prefix = st1 /><st1:place w:st="on">
Delphi</st1:place> wizard to make a com wrapper of the form.<?xml:namespace
prefix = o /><o:p></o:p></SPAN></FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">Then Expose the com
object in said application.<o:p></o:p></SPAN></FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p>
</SPAN></FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">In the parent app
create the TOleControl wrapper. Set Border Style to none and parent it to an
MDI Child form in the <o:p></o:p></SPAN></FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">App. <o:p></o:p>
</SPAN></FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p>
</SPAN></FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">There is no other
way. Its called memory pollution if you let it happen.<o:p></o:p></SPAN>
</FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p>
</SPAN></FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">By the way… I Hate
COM and I think what you are trying to do sounds crazy.<o:p></o:p></SPAN>
</FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">If you need info in
another app you should convert it into a dataproviding app, and pass data
over tcp to be displayed in the gui of your choice.<o:p></o:p></SPAN></FONT>
</DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p>
</SPAN></FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial">If you don’t have
the source for both apps then give up and ring the software vendor.. </SPAN>
</FONT><FONT face=Wingdings color=navy size=2><SPAN style="FONT-SIZE: 10pt;
COLOR: navy; FONT-FAMILY: Wingdings">J</SPAN></FONT><FONT face=Arial
color=navy size=2><SPAN style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY:
Arial"><o:p></o:p></SPAN></FONT></DIV>
<P class=MsoNormal><FONT face=Arial color=navy size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: navy; FONT-FAMILY: Arial"><o:p> </o:p>
</SPAN></FONT></DIV>
<DIV>
<DIV class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT
face="Times New Roman" size=3><SPAN style="FONT-SIZE: 12pt">
<HR tabIndex=-1 align=center width="100%" SIZE=2>
</SPAN></FONT></DIV>
<P class=MsoNormal><B><FONT face=Tahoma size=2><SPAN style="FONT-WEIGHT:
bold; FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">From:</SPAN></FONT></B><FONT
face=Tahoma size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">
delphi-bounces@ns3.123.co.nz [mailto:delphi-bounces@ns3.123.co.nz] <B><SPAN
style="FONT-WEIGHT: bold">On Behalf Of </SPAN></B>Jeremy Coulter<BR><B><SPAN
style="FONT-WEIGHT: bold">Sent:</SPAN></B> Wednesday, 5 April 2006 3:58
p.m.<BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B>
delphi@delphi.org.nz<BR><B><SPAN style="FONT-WEIGHT: bold">Subject:</SPAN>
</B> [DUG] Assigning a forms parent</SPAN></FONT><o:p></o:p></DIV></DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt">Hi All.<o:p></o:p></SPAN></FONT></DIV>
</DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt">I have an app. that I would like to
"Try" and assign the form to another running app.<o:p></o:p></SPAN></FONT>
</DIV></DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></DIV>
</DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt">The other app. is an MDIparent, and I
want to make it "appear" as if the other apps form is just another form in
the other application.<o:p></o:p></SPAN></FONT></DIV></DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></DIV>
</DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt">I tried setting the forms parenthandle
to the handle of the other app, but it didnt really work.<o:p></o:p></SPAN>
</FONT></DIV></DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></DIV>
</DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt">Anyone got any ideas?<o:p></o:p></SPAN>
</FONT></DIV></DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt"> <o:p></o:p></SPAN></FONT></DIV>
</DIV>
<DIV>
<P class=MsoNormal style="BACKGROUND: white"><FONT face="Times New Roman"
size=3><SPAN style="FONT-SIZE: 12pt">Jeremy<o:p></o:p></SPAN></FONT></DIV>
</DIV></DIV></BLOCKQUOTE>
</BODY></HTML>