Как удалить компонент??

[Ky3Heu,]

Есть на PageControl куча динамически созданных панелей. По правому клику на панели юзер выбирает "Удалить", и мне эту панель (именно эту одну, а не все) надо удалить, только я не знаю как. Имя компонента при клике заносится в переменную.

[Лукманов Александр]

Component - Install Packages - Выбираете и Remove

Пардон, не правильно прочитал.

[VVM]

procedure TForm1.Panel1Click(Sender: TObject);
begin
  FreeAndNil(Sender);
end;

[Ky3Heu,]

Сообщение от Лукманов Александр

Component - Install Packages - Выбираете и Remove

Все намного проще оказалось.

var pan:Tcomponent;
     conam:TcomponentName;
begin
pan:=Findcomponent(conam);
pan.free;

Но все равно спасибо.....

[Stilet]

Лукманов Александр

Это уж слишком радикально

VVM

Это помоему тоже удалит все

Вот мое предложение с ПопупМеню:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
begin
    PageControl1.ActivePage.Free;


end;

procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var i:integer;
begin
 i:=PageControl1.IndexOfTabAt(x,y);
if (i>=0)and(Button=mbright) then begin
 PageControl1.ActivePageIndex:=i;
 PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
end;
end;

end.

[Ky3Heu,]

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

Это уж слишком радикально


Это помоему тоже удалит все

Вот мое предложение с ПопупМеню:

unit Unit1;

Ничего радикального. Мне надо было удалить компонент. Метод Free удаляет именно тот компонент который нужен полностью. Я этого и хотел.

[VVM]

Ничего радикального. Мне надо было удалить компонент. Метод Free удаляет именно тот компонент который нужен полностью. Я этого и хотел.

Радикальность в том, что предложенный метод удаляет компоненты с палитры компонентов, то есть вообще из delphi.

2 Stilet:

Это помоему тоже удалит все

...куча динамически созданных панелей...

Предполагалось, что при клике на нужную панель она и удалится, ведь Sender - это ссылка на объект вызвавший событие. Просто я не уловил, что клик в меню, а не левой кнопкой на самой панели...

[Stilet]

VVM

Ну на сколько я понял автору вкладку нужно удалить а не саму панель... Хотя... смутный вопрос всетки...