Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > pagecontrol tab close help

Автор: muratboy31 22.2.2010, 17:37

i want to enable closing all the tabs but if it is down to 1 tab then i dont want disable closing, i am using this code but there is problem...

Код


procedure TForm1.PageControl1Close(Sender: TObject; var CanClose: Boolean);
var
cnt: Integer;
selTabs: string;
begin
selTabs :='';
for cnt := 0 to PageControl1.Pages.ControlCount – 1 do
begin
 if PageControl1.Pages.ControlCount = 0 then
  begin
    CanClose := False;
  end
   else
    CanClose := True;
    PageControl1.SelectNextPage(false,false);
end;