procedure TFrm_bassmessage_user.TB_EDITClick(Sender: TObject);
begin
  inherited;//这个关键字是干什么的