掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
破棄されたフォームを知るには？ (ID：32013)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
FormA破棄時に通知するように設定します。 下記を参考にしてみてください。 type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private FChildFrm: TForm; protected procedure Notification(AComponent: TComponent; Operation: TOperation); override; public end; var Form1: TForm1; implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin if FChildFrm = nil then begin FChildFrm:= TForm2.Create(Self); FChildFrm.FreeNotification(Self); FChildFrm.Show; end; end; procedure TForm1.Notification(AComponent: TComponent; Operation: TOperation); begin inherited Notification(AComponent, Operation); if (AComponent = FChildFrm) and (Operation = opRemove) then FChildFrm:= nil; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.