Текущий архив: 2004.02.10;
Скачать: CL | DM;

Вниз

Удалить объект   Найти похожие ветки 

← →
SnapIn   (2004-02-02 06:14) [0]

На панели кнопка SpeedButton, по ее нажатию прописываю:

if (Sender as TSpeedButton).Parent <> nil then
(Sender as TSpeedButton).Parent.Free;

Вываливается ошибка...

---

← →
Zergling ©   (2004-02-02 06:20) [1]

if Sender is TButton then TButton(Sender).Free;

---

← →
Zergling ©   (2004-02-02 06:22) [2]

Кстати Parent - это родитель объекта, т.е. это тот родитель на ком лежит данный контрол (TSpeedButton)

---

← →
SnapIn   (2004-02-02 06:26) [3]

Да! Именно родителя нужно удалять!!!

Если по нажатию левой кнопки написать удаление - работает:

procedure TfmQue.Button1Click(Sender: TObject);
var
coTemp: TComponent;
begin
coTemp := sbDataArea.FindComponent(Edit1.Text);
if coTemp <> nil then
begin
ShowMessage("not nil");
coTemp.Free;
end
else
ShowMessage("nil");
end;

..а если по нажатию на кнопку, которая лежит на объекте, который нужно удалять - ошибка! ...access violation...

---

← →
Zergling ©   (2004-02-02 06:39) [4]

Ну и в чем проблема?

if Sender is TButton then TButton(Sender).Parent.Free;

---

← →
VAleksey ©   (2004-02-02 09:31) [5]

Пошли форме сообщение через PostMessage с указателем на объект, который нужно удалить, в левом параметре.

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c