Выскакивает Access Violation, ну оно и понятно...
Но всё-таки, должен же быть способ (

P.S. Если быть точным, то мне нужно в обработчике Button1.OnClick удалить собственника этой Button1, саму Button1, а также всех остальных потомков собственника Button1.

можно удалять PostMessage

Если можно, чуть подробнее. В сообщениях я не шибко понимаю...

Брось на форму: TPanel, а на неё кнопку ... ну и на OnClick данной кнопки вот ентот обработчик

Код

procedure TForm1.Button1Click(Sender: TObject); var f:TMessage; begin FillChar(f,SizeOf(f),#0); f.Msg:=WM_Close; TComponent(Sender).GetParentComponent.Dispatch(f); end;

PS: Если кнопка лежит на форме - то прибьется и форма

Это сообщение отредактировал(а) Girder - 17.2.2005, 16:39

Спасибо, пойду попробую. Будут вопросы - еще напишу.

Приведенное решение действительно подходит для случая, когда есть панель, а на ней кнопка.
Однако у меня ситуация такая:

есть панель1, на ней n объектов лежат,
есть панель2 (своего рода Caption для Panel1) (родитель у нее - также панель1),
на панели2 есть кнопка.

Нужно при нажатии на кнопку у ничтожить всё.
Делаю так:

procedure TGrCaption._OnCloseButtonClick (Sender: TObject);
var f: TMessage;
begin
FillChar (f, SizeOf (f), #0);
f.Msg:= WM_CLOSE;
TComponent (Sender).GetParentComponent.Dispatch (f);
TComponent (Sender).GetParentComponent.GetParentComponent.Dispatch (f);
end;


Эффект от этого следующий:
1) создаю программно всю свою байду (панели с объектами), нажимаю кнопку, всё пропадает. Прекрасно!
2) еще раз создаю программно такую же конструкцию, нажимаю кнопку,
всё пропадает только при повторном нажатии на нее (первая панель как-то опять появилась под второй)

создаю всю хитроумную панель GrBC так:
begin
GrBC:= TGrBasicComponent.Create (ModelScrollBox);
AssignFile (f, (Sender as TRzGroupItem).Hint);
Reset (f);
GrBC.LoadData (f);
GrBC.Left:= LeftPositionOnCreate;
GrBC.Top:= TopPositionOnCreate;
end;

Сдается мне, ошибка где-то в обработке WM_CLOSE, что-то я неправильно вызываю.

Можешь попробовать заюзать ApplicationEvents.OnIdle.

Уничтожаем себя :

Код

TComponent(Sender).Destroying; TControl(Sender).Parent:=nil;

Уничтож с "отцом" :

Код

TComponent(Sender).Destroying; TControl(TControl(Sender).GetParentComponent).Parent:=nil; TComponent(Sender).GetParentComponent.Destroying; TControl(Sender).Parent:=nil;

Уничтожаем с "дедом"

Код

TComponent(Sender).Destroying; TComponent(Sender).GetParentComponent.GetParentComponent.Destroying; TControl(TControl(Sender).GetParentComponent.GetParentComponent).Parent:=nil; TControl(Sender).Parent:=nil;

PS: Если предок форма... то тут надо быть внимательным... так как форма не будет унижножена!

Итого (для использования ):

Код

procedure TForm1.OnCloseButtonClick(Sender: TObject); var i:integer;    Comp:TComponent; begin i:=2; //Убить вместе с "дедушкой" (если его нет... прибьется до того что есть); Comp:=TComponent(Sender); while (i>0)and(Comp.GetParentComponent.GetParentComponent<>nil) do  begin   Comp:=Comp.GetParentComponent;   dec(i);  end; Comp.Destroying; TControl(Comp).Parent:=nil; end;

Это сообщение отредактировал(а) Girder - 17.2.2005, 23:27

Girder, огромное тебе спасибо. Твой вариант работает!