Closable Tabs
给tab页添加关闭按钮，设置UniTabSheet.Closable = True这样在tab页的右上角就会出现关闭图标，点击可以关闭当前tab页面；
1. 直接关闭，完成后提示：
procedure TMainForm.UniTabSheet5Close(Sender: TObject; var AllowClose: Boolean);
begin
ShowMessage('Tab Closed.');
end;
2. 使用回调函数来确认是否关闭：
procedure TMainForm.CallBack(AResult: Integer);
begin
if AResult=mrYes then
UniTabSheet4.Free;
end;
procedure TMainForm.UniTabSheet4Close(Sender: TObject; var AllowClose: Boolean);
begin
AllowClose:=False;
MessageDlg('Close Tab?', mtConfirmation, mbYesNo, CallBack);
end;