[gamerfox]

Доброго времени суток. Народ, помогите. Пишу браузер, организовал вкладки через PageControl. Как удалять TabSheet по клику на кнопке? Вроде сделал, но удаляется только одна, а как сделать чтобы удалялись все?
Вот код.
TabSheet.destroy;

[angvelem]

Использовать цикл по количеству вкладок и использовать TabSheet.Free.

[gamerfox]

А как именно, я не врубаюсь. Я меньше года в Delphi и еще не совсем врубаюсь.

[angvelem]

Для написания браузера срок маленький, а для понимания работы с контролами вполне достаточный. У PageControl-а имеются свойства PageCount и Pages, читай по ним справку.

[gamerfox]

Сообщение от angvelem

Для написания браузера срок маленький, а для понимания работы с контролами вполне достаточный. У PageControl-а имеются свойства PageCount и Pages, читай по ним справку.

Большое спс

[ilya38]

держи дружище ... ) надеюсь разберешься)

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
label
back;
var
 i : integer;
begin
back:
  for i := 0 to ComponentCount-1 do
  begin
     if Components[i] is TTabSheet then
     begin
       (Components[i] as TTabSheet).Free;
       goto back;
     end;
  end;
end;

end. 


[gamerfox]

Не фуричит.

[Страдалецъ]

Ну как бы все несколько проще:

Код:

 while PageControl1.PageCount > 0
 do PageControl1.Pages[PageControl1.PageCount-1].Free

[ilya38]

я не сказал что там просто )

[angvelem]

Сообщение от ilya38

я не сказал что там просто )

За такой код, бить нужно:

Код:

procedure TForm1.Button1Click(Sender: TObject); 
label 
back; 
var 
 i : integer; 
begin 
back: 
  for i := 0 to ComponentCount-1 do 
  begin 
     if Components[i] is TTabSheet then 
     begin 
       (Components[i] as TTabSheet).Free; 
       goto back; 
     end; 
  end; 
end; 

Применение Label не приветствуется в программировании, так ещё для цикла это просто вредно.