ミ,,゚Д゚彡DelフサギコのフサフサDelphi談話室�A
■ このスレッドは過去ログ倉庫に格納されています
0072Delフサギコ
NGNG∧,,∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
ミ ゚Д゚ミ ∫< 全然問題ないですよ
.(ミ ミっ-~ \__________
〜ミ,,⊃ミ⊃ AクセスVaイオが出る事ないです.
オブジェクトの生成と破棄をしっかりと管理してさえいれば
>>60のコードでOK.
ちょっぴり改造してみますと
procedure TForm1.Button1Click(Sender: TObject);
begin
FreeAndNil(Button1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if not Assigned(Button1) then
begin
Button1 := TButton.Create(Self);
Button1.Parent := Self;
Button1.Caption := 'Button1';
Button1.OnClick := Button1Click;
end;
end;
Button1Clickはイベントハンドラだけど
同時にTForm1のメソッドでありそのメソッドポインタを持つのは
Button1.OnClickだからButton1が破棄されても特に問題ないのです。
>>71
デザパタのアダプターとかと通じるものがあるかな?
■ このスレッドは過去ログ倉庫に格納されています