コンポーネント自身を解放するには？

外人 2004-09-17 15:43:53 No: 10973 IP: 192.*.*.*

たとえば、ボタンを押すと、パネル（ボタンのペアレント）を開放する方法はありますか？

編集削除

内人 2004-09-17 16:23:29 No: 10974 IP: 192.*.*.*

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Free;
end;

編集削除

外人 2004-09-17 16:31:42 No: 10975 IP: 192.*.*.*

そうすると、エラーになりますよ。

編集削除

内人 2004-09-17 16:33:10 No: 10976 IP: 192.*.*.*

そうですか。わたしのではなりませんね。

編集削除

外人 2004-09-17 16:38:22 No: 10977 IP: 192.*.*.*

マウスと「Enter」キー両方試してみたら、
ちなみに、こっちは、バージョン７ですけど。

編集削除

ふぐちゃん 2004-09-17 16:38:26 No: 10978 IP: 192.*.*.*

参考までに、私の環境でもエラーにはなりませんでした。

編集削除

jok 2004-09-17 16:41:56 No: 10979 IP: 192.*.*.*

わたしのＤ５でもエラーになりません。TForm.Release をまねて、例えば

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case Msg.message of
    WM_APP+100: TObject(Msg.wParam).Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Application.Handle,WM_APP+100,WParam(Panel1),0);
end;

とかでいいのでは。