Уничтожить кнопку при нажатии на неё же.

[NoName_emaNoN]

Добрый день!
Есть два Edit'а, за ними сразу же идёт button, и таких наборов несколько, создаются динамически. Кнопке присваиваю на нажатие: уничтожение двух Edit, и уничтожение самой себя.
Что странно: На разных GroupBox'ах реагирует по разному. На первом иногда выводит ошибку (т.е. при одной последовательности действий реагирует по-разному), на втором всё время выдаёт ошибку, процедуры создания и удаления идентичны. Но не в этом даже суть.
Как можно удалить конпку при нажатии на неё? Должен ли работать Free. И вообще реально ли из собственной же процедуры удалить себя?

[vovk]

вроде

sender.free;

должно работать.

[asmodey1]

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

вроде

sender.free;

должно работать.

Не-а... не должнo...
Вот правильный код:

var myobj: TObject;
..................
procedure TForm1.Button1Click(Sender: TObject);
begin
myobj:=Sender;
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
myobj.Free;
Timer1.Enabled:=False;
end;

[Sibedir]

Не-а... не должна...

Очень даже работает

Вот правильный код

В корне не верный подход

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

И вообще реально ли из собственной же процедуры удалить себя?

Процедура, которая присвоена обработчику OnCklick кнопки, не его собственность. Сами же писали

создаются динамически

Она пренадлежат объекту класса, в котором объявлена.
Но более того. Даже если вы уничтожите объект внутри него самого ничего страшного не произойдет. Тело процедуру продолжит выполнятся как ни в чем не бывало. Ведь оно не уничтожено, и продолжает болтаться в пямяти. Главное не использовать Sender после Sender.Free (ну и далее не обращатся к полям объекта по этому адресу).

P.S.:
Даже такое проканает

{ TMO }

function TMO.A: String;
begin
  Result := 'asdgfasdfasdf';
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  mo: TMO;
begin
  ShowMessage (mo.A);
end;

Объекта нет, а функция работает.

[evg_m]

Тело процедуру продолжит выполнятся как ни в чем не бывало. Ведь оно не уничтожено, и продолжает болтаться в пямяти

И возврат из нее произойдет как положено (откуда вызвана) т.е. в процедуру уничтоженного объекта.

Главное не использовать Sender после Sender.Free (ну и далее не обращатся к полям объекта по этому адресу).

А вы уверены что там не будет обращений к (теперь уже правда не к sender а к Self и прочим данным удаленного объекта) все процедуры остались на месте и стек их вызовов тоже.
чаще всего это сработает но об абсолютной гарантии (для любого объекта) не может быть и речи.

[Пепел Феникса]

И возврат из нее произойдет как положено (откуда вызвана) т.е. в процедуру уничтоженного объекта.

нукась стоп, обычно обработчики принадлежат форме.
так что все нормально вернется, мы уничтожили Sender, а не Self.
во вторых с освобождением обьекта код не изменяется.

А вы уверены что там не будет обращений к (теперь уже правда не к sender а к Self и прочим данным удаленного объекта)

опять же помните кто такой Sender, а кто такой Self в обработчике.

[evg_m]

обычно обработчики принадлежат форме.

нов ызывается данная процедура из другой процедуры
procedure Tbuton.Click; которая принадлежит самому объекту (в данном случае кнопке).

property Onclick: TnotifyEvent read FonClick write Fonclick;

if assigned(Fonclick) then fonclick(self);

наш параметр sender и есть self для TButton.

во вторых с освобождением обьекта код не изменяется.

код Tbuttin.click; не меняется. Но в нем есть (или по крайней мере может быть) обращение к его self (Tbutton). котjрый мы успешно сделали Free.

Tbutton наследник Tcontrol

procedure TControl.Click;
begin
  { Call OnClick if assigned and not equal to associated action's OnExecute.
    If associated action's OnExecute assigned then call it, otherwise, call
    OnClick. }
  if Assigned(FOnClick) and (Action <> nil) and (@FOnClick <> @Action.OnExecute) then
    FOnClick(Self)
  else if not (csDesigning in ComponentState) and (ActionLink <> nil) then
    ActionLink.Execute(Self)
  else if Assigned(FOnClick) then
    FOnClick(Self);
end;

но

Tcontrol
     Public
     procedure Click; virtual;

и кто поручится что в перегруженной функции не будет такого.

procedure TMButton.Click;
begin
  inherited click; //базовое действие с обращением к нашему Onclick где есть Free
  Canvas.Drawrect;//код остался на месте продолжаем работу и получаем ......
end;

[Sibedir]

2 evg_m
Да все может быть. Но ТС говорил про button. Я так понимаю это простой BTutton. И к тому же я написал:

Главное не использовать Sender после Sender.Free (ну и далее не обращатся к полям объекта по этому адресу).

Не спорю, что можно и споткнуться. Но если речь идет о простой кнопке, все будет хокей. Чё голову ломать над тривиальной задачей.
А если вам не нравится наше решение - предложите своё. Вариант с таймером чёт тоже не вдохновил.

[mss]

Грамотно это делается это так: форме, на которой находится кнопка, асинхронно (PostMessage) посылается некое заранее предопределенное сообщение. По получении сообщения форма преспокойно разрущает контрол-отправитель сообщения.

[asmodey1]

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

Очень даже работает

А если не теоретизировать, а попробовать ?
Я вот попробовал... И получил абстрактную ошибку.
Но вы упирайтесь рогом дальше. Доказывайте псевдоправоту...