<html><head></head><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue-Light, Helvetica Neue Light, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1453625593525_2912"><span id="yui_3_16_0_1_1453625593525_2932">No, I can't put them in the Form1's OnCreate event. Because the additional code wouldn't be just from me, but the could be from others as well. I'd like to make the main application into a unit. So, the form should be established on the unit call. The other would simply use the unit and add or modify any components of the existing Form1.</span></div><div></div><div id="yui_3_16_0_1_1453625593525_2955"><br></div><div id="yui_3_16_0_1_1453625593525_2955">Do you understand what I'm trying to achieve? I think it should be possible to do, I just don't know how to do it properly. I've looked at the PostMessage method, but I don't think it suits my need. CMIIW.</div><div id="yui_3_16_0_1_1453625593525_2955"><br></div><div id="yui_3_16_0_1_1453625593525_2955">Regards,</div><div class="signature" id="yui_3_16_0_1_1453625593525_2980"><div id="yui_3_16_0_1_1453625593525_2979"><br></div>–Mr Bee<div id="yui_3_16_0_1_1453625593525_2981"><br></div></div> <div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: HelveticaNeue-Light, Helvetica Neue Light, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"><font size="2" face="Arial"> Pada Minggu, 24 Januari 2016 15:48, Sven Barth <pascaldragon@googlemail.com> menulis:<br></font></div> <br><br> <div class="y_msg_container"><div id="yiv4912489404"><div><div>Am 24.01.2016 09:46 schrieb "Mr Bee" <<a rel="nofollow" shape="rect" ymailto="mailto:pak.lebah@yahoo.com" target="_blank" href="mailto:pak.lebah@yahoo.com">pak.lebah@yahoo.com</a>>:<br clear="none">
><br clear="none">
> Hi,<br clear="none">
><br clear="none">
> Common Lazarus project source code contains this snippet:<br clear="none">
><br clear="none">
> begin<br clear="none">
> Application.Initialize;<br clear="none">
> Application.CreateForm(TForm, Form1);<br clear="none">
> Application.Run;<br clear="none">
> end. <br clear="none">
><br clear="none">
> Adding code to modify or add components of/into Form1 after the Application.Run method will be ignored because it's out of the application's main thread. So, is there a correct and safe way to do it?<br clear="none">
><br clear="none">
> begin<br clear="none">
> Application.Initialize;<br clear="none">
> Application.CreateForm(TForm, Form1);<br clear="none">
> Application.Run;<br clear="none">
> // how to make below code be executed?<br clear="none">
> Form1.Caption := 'My caption';<br clear="none">
> Form1.Edit1.Text := 'My text input';<br clear="none">
> MyLabel := TMyLabel.Create(Form1);<br clear="none">
> MyLabel.Parent := Form1;<br clear="none">
> MyLabel.Caption := 'My runtime label';<br clear="none">
> // or one could add any arbitraty code here<br clear="none">
> end. </div>
<div>Put it into the form's OnCreate event handler. This kind of code does not belong into the main project file anyway.</div>
<div></div><div class="yiv4912489404yqt3245963973" id="yiv4912489404yqtfd00798">Regards,</div><br clear="none">
Sven</div></div><br><br></div> </div> </div> </div></div></body></html>