begin
// if user pressed backspace
if Key = #8 then
begin
// set this as the object to destroy
ToDestroy := Sender as TButton;
// post message to perform destruction
PostMessage (Handle, wm_User, 0, 0);
end;
end;
象这样要删除动态创建的BUTTON是的语句中
PostMessage (Handle, wm_User, 0, 0);中参数 handle,wm_user,0,0
分别什么意识, 0, 0 改动之后程序好象没变化,无关紧要的。