Demo学习： Closable Tabs

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;