[TOJluK]

Создаю кнопку:

Код:

Butt:=TBitBtn.Create(nil);
Butt.Parent:= clkForm;
Butt.Width:=171;
Butt.Height:=25;
Butt.OnClick:=onBitClick;

Ну и в onBitClick хочу ее удалить:

Код:

procedure TclkForm.OnBitClick(Sender: TObject);
begin
 if Sender is TBitBtn then
  with (Sender as TBitBtn) do
   begin
   Free;
   end;
end;

Кнопку процедура удаляет, но иногда получаю AccessViolation, т.е. при первом удалении AccessViolation 100%, а потом- то проходит без проблем, то опять AccessViolation. А и еще нейкий Abstract Error после Violation иногда выдает. Где туплю?

[TOJluK]

Тут, вроде, разобрался - походу проблема в том, что у созданной кнопки есть обработчик onClick. Это так?

И вот еще:
создаю:

Код:

CheckList:=TCheckListBox.Create(nil);
CheckList.Parent:= clkForm;

и тож не могу его удалить:

Код:

clkForm.FindComponent('CheckList').Free;

Тут то уже что не так?

[Nyctos Kasignete]

А это после вызова конструктора сделали?

Код:

CheckList.Name:= 'CheckList';

[TOJluK]

Нет, не сделал. Спасибо за решение. Возник вопрос по ходу. Проблему я решил по другому. CheckList объявил в Private и вызываю CheckList.Destroy - все работает. Как будет более верно? Всмысле считается ли мой способ решения как бы корректным или все- же лучше так не делать?

[Nyctos Kasignete]

Do not call Destroy directly in an application. Call Free instead. Free verifies that the check list box is not nil before it calls Destroy.

Из Delphi Help. =)

[TOJluK]

Сообщение от Nyctos Kasignete

А это после вызова конструктора сделали?

Код:

CheckList.Name:= 'CheckList';

Ну что ж вернулся к вашему решению. Не пашет.
Так создаю

Код:

CheckList:=TCheckListBox.Create(nil);
CheckList.Parent:= clkForm;
CheckList.Width:=393;
CheckList.Height:=217;
CheckList.Top:=0;
CheckList.Left:=552;
CheckList.Font.Size:=12;
CheckList.Name:='CheckList';

Так удаляю

Код:

clkForm.FindComponent('CheckList').Free;

и ничего не происходит...

[Nyctos Kasignete]

Надобно так вот создавать:

Код:

CheckList:=TCheckListBox.Create(clkForm);

[TOJluK]

Ну все, вроде работает. СПС.