FireMonkeyのTEDITは、私はこの例に基づいて、ログインフォームを使用してアプリケーションを作成しようとしていますApplication.run

Question

を実行する前に、点滅していませんApplication.Runの呼び出しの前にログインフォームを表示すると、TEditのカーソルが点滅しません。私がログインフォームを表示してApplication.Runに電話すると、それは普通に点滅します。

Application.Runの前にカーソルを点滅させるために何かできますか？

Answer 1

私は過去にこれに直面していました。ロイ氏は言うように、Application.Runはメッセージの正しい処理に重要な役割を果たします。

あなたのアプリを再設計する必要があります。

Application.CreateFormで作成されたログインフォームを作成し、メインフォームを開く準備が整ったら、Application.MainFormに割り当てます。この

チェック：http://www.uweraabe.de/Blog/2016/01/22/a-splash-form-in-firemonkey/

Answer 2

私は、FMXのApplication.Runメソッドでいくつかの初期化が完了していると思います。これを解決するには、ログインフォームを使用し、自動作成フォームの代わりにメインフォームを作成する必要があります。たとえば、ログインフォームを自動作成フォームとして追加します。そしてあなたのログインフォームであなたのログインテストに合格すれば、次のようなことができます。

procedure TValidationDemoForm.InfoButtonClick(Sender: TObject); 
var form: TForm; 
begin 
    Application.CreateForm(TMainDemoForm, form); 
    Application.MainForm:= form; 
    form.Show; 
    Close; 
end;