Закрытие вкладки

[DomiNick]

Было бы неплохо написать свой компонент(на основе PageControl и браузера) и не париться

Полностью согласен, но мне не хватит знаний...
Может научите нас..?))

Может у кого-то есть под рукой нормальные статьи как создавать свои компоненты на основе стандартных?)

[beemoto]

пожалуйста несмотрите на пример!
пример я взял с одного исходника...
все что мне хотелось бы, так это:
закрывать вкладку(при нажатииправой кнопки на любую вкладку мне надо ее закрыть)
или хотяб пока только активную закрыть
------------------
DomiNick, есть уже готовые компоненты на основе PageControl, но в них постоянно много глюков

PageExtControl - один из PageControl с кнопками...

[beemoto]

больше всего мне понравился код:
PageControl1.ActivePage.Free;
но глюк идет если закрыть вкладку а потом нажать левой кнопке по любой вкладке...

[Levsha100]

С меня такой преподаватель....)))
Есть интересная книга "Искусство создания компонентов Delphi".
Если честно я в этом не профи, но кое что умею
Если хотите, могу скинуть исходник такого компонентика(эдинственного созданного мной )
// Сейчас попробую создать Ваш компонентик, но я ничего не обещаю)))

[Kotofff]

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

больше всего мне понравился код:
PageControl1.ActivePage.Free;
но глюк идет если закрыть вкладку а потом нажать левой кнопке по любой вкладке...

Вот так попробуй тогда :

PageControl1.Pages[PageControl1.ActivePageIndex].Free;

Хотя никакой разницы ...

[beemoto]

Kotofff, такая же хрень =(
пробовал в теги try но нефига...

[beemoto]

Levsha100, вруби асю

[DomiNick]

но глюк идет если закрыть вкладку а потом нажать левой кнопке по любой вкладке...

Я писал с "Destroy"... Хотя вроде одинакого...)

А в каком это обработчике? Надеюсь это используется не одновременно с кодом из нижней половины поста #9, а то и должно вылетать...

Если хотите, могу скинуть исходник такого компонентика(эдинственного созданного мной )

Хотим...

[Levsha100]

Создаем новый компонент на основе TPanel и вставляем этот код!)))

unit MyControlPanel;

interface

uses
 SysUtils, Classes, Controls, ExtCtrls,ComCtrls,StdCtrls ;

type
  TMyControlPanel = class(TPanel)//Основа- компонент TPanel

  private
    { Private declarations }
    slider: TTrackBar;
    Captioner: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    slider_editining: TNotifyEvent;
    min_editining: TNotifyEvent;
    max_editining: TNotifyEvent;
     min_,max_,position_,Frequency_:integer;
    Name_:string;
    procedure SetName_(const Value: string);
    procedure SetMin_(const Value: integer);
    procedure SetMax_(const Value: integer);
    procedure SetPosition_(const Value: integer);
  protected
    { Protected declarations }
    procedure slider_Change(Sender: TObject);
    procedure Edit1_Change(Sender: TObject);
    procedure Edit2_Change(Sender: TObject);
    procedure Edit3_Change(Sender: TObject);
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override; 
  published
    { Published declarations }
    property OnSliderEdit: TNotifyEvent read slider_editining write slider_editining;
    property OnMinEdit: TNotifyEvent read min_editining write min_editining;
    property OnMaxEdit: TNotifyEvent read max_editining write max_editining;
    property Visible;
    property Min:integer read Min_ write SetMin_;
    property Max:integer read Max_ write SetMax_;
    property Name:string read Name_ write SetName_;
    property Position:integer read position_ write SetPosition_;
    property Frequency:integer read Frequency_ write Frequency_;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Alex', [TMyControlPanel]);
end;

{ TMyControlPanel }

constructor TMyControlPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 217;
  Height := 97;
  Caption:=' ';

  slider := TTrackBar.Create(Self); // Создаем TrackBar
  with slider do
  begin
   Parent:= Self;   // И устанавливаем значения по умолчанию
   left:=16;
   top :=27;
   width:=185;
   height:=45;
   min:=-10;
   max:=+10;
   position:=0;
   visible:=true;
   show;
   OnChange:=slider_Change;
  end;
  Captioner:= TLabel.Create(Self); // Создаем TLabel
  with Captioner do
  begin
   Parent:= Self;  // И устанавливаем значения по умолчанию
   left:=0;
   top :=8;
   width:=185;
   height:=15;
   AutoSize:=false;
   Alignment:=taCenter;
   visible:=true;
   Caption:=Name_;
   show;
  end;
  Edit1:= TEdit.Create(Self); // Создаем TEdit
  with Edit1 do
  begin
   Parent:= Self;  // И устанавливаем значения по умолчанию
   left:=16;
   top :=64;
   width:=58;
   height:=21;
   visible:=true;
   Text:='-10';
   show;
   OnChange:=Edit1_Change;
  end;
  Edit2:= TEdit.Create(Self); // Создаем TEdit
  with Edit2 do
  begin
   Parent:= Self; // И устанавливаем значения по умолчанию
   left:=79;
   top :=64;
   width:=58;
   height:=21;
   visible:=true;
   Text:='0';
   readOnly:=true;
   show;
   OnChange:=Edit2_Change;
  end;
  Edit3:= TEdit.Create(Self); // Создаем TEdit
  with Edit3 do
  begin
   Parent:= Self; // И устанавливаем значения по умолчанию
   left:=143;
   top :=64;
   width:=58;
   height:=21;
   visible:=true;
   Text:='10';
   show;
   OnChange:=Edit3_Change;
  end;
end;

destructor TMyControlPanel.Destroy;
begin
  slider.Free;
  Captioner.Free;
  Edit1.Free;
  Edit2.Free;    //Удаляем все созданное
  Edit3.Free;
  inherited Destroy; 
end;

procedure TMyControlPanel.Edit1_Change(Sender: TObject);
begin
   if (Edit1.Text='+')or(Edit1.Text='-')then
   begin
     //
   end        // По ходу защита от неправильного ввода))
   else
   begin
    min_:=StrToInt(Edit1.Text);
    if Assigned( OnMinEdit) then OnMinEdit(Self);
    slider.Min:=StrToInt(Edit1.Text);
   end;
end;

[Levsha100]

procedure TMyControlPanel.Edit2_Change(Sender: TObject);
begin
  if (StrToInt(Edit2.Text)>=min_)and(StrToInt(Edit2.Text)<=max_) then
  begin
   slider.Position:=StrToInt(Edit2.Text);
   Position_:=StrToInt(Edit2.Text);
  end;
end;

procedure TMyControlPanel.Edit3_Change(Sender: TObject);
begin
   if (Edit3.Text='+')or(Edit3.Text='-')then
   begin
     //
   end
   else
   begin
   max_:=StrToInt(Edit3.Text);
   if Assigned( OnMaxEdit) then OnMaxEdit(Self);
   slider.Max:=StrToInt(Edit3.Text);
   end;
end;

procedure TMyControlPanel.SetMax_(const Value: integer);
begin
  slider.Max:=Value;
  Edit3.Text:=IntToStr(Value);
  Max_:=Value;
end;

procedure TMyControlPanel.SetMin_(const Value: integer);
begin
  slider.Min:=Value;
  Edit1.Text:=IntToStr(Value);
  Min_:=Value;
end;

procedure TMyControlPanel.SetName_(const Value: string);
begin
  Captioner.Caption:=Value;
  Name_:=Value;
end;

procedure TMyControlPanel.SetPosition_(const Value: integer);
begin
  slider.Position:=Value;
  Edit2.Text:=IntToStr(Value);
  position_:=Value;
end;

procedure TMyControlPanel.slider_Change(Sender: TObject);
begin
 Position_:=slider.Position;
 Edit2.Text:=IntToStr(slider.Position);
 if Assigned( OnSliderEdit) then OnSliderEdit(Self);
end;

end.