掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FormActivateの使い方 (ID:22870)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
IP非表示記念、 仕事場から遊びで書きこんでるので、非表示助かります。 OnActivateはTApplication、TCustomFormの二つがあります。 Form1.OnActivareはTCustomFormの方です。 これは同一アプリ間でのフォームのActivate時に発生します。 そのため単一フォームでは始めの一回しか起こりません。 TApplicationは別アプリ間でのActivateイベントですので同一アプリのフォームのactivateには対応していません。 サンプルん //Unit1 private procedure AppActivate(Sender: TObject); procedure TForm1.FormActivate(Sender: TObject); begin ListBox1.Items.Add('Form1 ' + inttostr(GetTickCount)); end; procedure TForm1.Button1Click(Sender: TObject); begin Form2.show; end; procedure TForm1.FormCreate(Sender: TObject); begin //TApplicationのOnActiveイベント Application.OnActivate :=AppActivate; end; procedure TForm1.AppActivate(Sender: TObject); begin ListBox1.Items.Add('App ' + inttostr(GetTickCount)); end; procedure TForm1.Button2Click(Sender: TObject); Begin //ダイアログではActiveイベントは発生しない ShowMessage('test'); end; //Unit2 procedure TForm2.FormActivate(Sender: TObject); begin ListBox1.Items.Add('Form2 ' + inttostr(GetTickCount)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.