Уничтожение компонента в Run Time.

← →
Leaner © (2004-11-03 12:25) [0]

Здравствуйте ! Помогите, пожалуйста, разобраться.
Создаю в режиме Run Time дополнительные кнопки на ToolBar
Все работает, пока я не пытаюсь уничтожить, созданную раньше кнопку.

procedure TMainForm. NewBtnClick(Sender: TObject); begin ShowMessage(TControl(Sender).Name); TToolButton(Sender).Free; ShowMessage("Deleted."); Beep; end; <--- здесь возникает AV procedure TMainForm.mnuThirdTestClick(Sender: TObject); var Btn:TToolButton; begin Btn:=TToolButton.Create(ProgramTBar);//ProgramTBar – это ToolBar на форме Btn.Style:=tbsButton; Btn.OnClick:=NewBtnClick; Btn.Name:="ButtonName"+IntToStr(ProgramTBar.ButtonCount); Btn.Caption:="ButtonCaption"+IntToStr(ProgramTBar.ButtonCount); Btn.Parent:=ProgramTBar; end;

← →
begin...end © (2004-11-03 12:27) [1]

Нельзя уничтожать в обработчике.

← →
Leaner © (2004-11-03 12:31) [2]

> begin...end
Спасибо !

← →
Юрий Зотов © (2004-11-03 13:04) [3]

> Leaner

Если кнопка должна уничтожить "сама себя", то из ее обработчика отправьте форме через PostMessage какое-нибудь сообщение, а вот в ЕГО обработчике кнопку уже можно спокойно уничтожать.

← →
Leaner © (2004-11-03 13:26) [4]

> Юрий Зотов
Огромное спасибо !
А еще прибедняються: мол, телепатов на форуме нет !

С обычной кнопкой такой фокус у меня прошел нормально

procedure TForm1.Button1Click(Sender: TObject);
begin
TButton(Sender).Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(TButton(Sender).Handle, CM_RELEASE, 0, 0)
end;

вот незадача, но это только для наследников TWinControl, иначе см. [3]

> TUser © (03.11.04 13:37) [5]
> С обычной кнопкой такой фокус у меня прошел нормально

после Click"а происходит еще MouseUp, а что там будет - AV (но не всегда, не мне Вам это объяснять :))

Уничтожение компонента в Run Time. Найти похожие ветки