怎样让窗口上的那个'x'不关闭窗口，而是干其它的自己定义的。

你在form的oncloerquery里面写代码，任意处理。
procedure TForm1.FormCloseQuery
begin
end;