Search code examples
delphitextboxfiremonkey

Firemonkey TEdit is not blinking before execute Application.run

I'm trying to create an application with login form based on this example: http://delphi.about.com/od/windowsshellapi/a/password_login.htm

The example above works fine on VCL

In Firemonkey, if I show the login form before call Application.Run the cursor of TEdit don't blink. If I show the login form and also call Application.Run, it blinks normally.

Can I do something to make the cursor blink before call Application.Run?

Solution

  • I faced this in the past and as Roy says, Application.Run plays an important part into the correct processing of messages.

    So, you need to redesign your app.

    Make the login form the one that is created by Application.CreateForm and when you decide you are ready to open the mainform, just assign it to the Application.MainForm.

    Check this: http://www.uweraabe.de/Blog/2016/01/22/a-splash-form-in-firemonkey/