Показать сообщение отдельно
  #11  
Старый 22.12.2009, 17:14
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

А вот функция, которая удаляет кнопку с формы, по caption,
Код:
function DestroyButtonByCaption(const aCaption:String):boolean;
var
  i:integer;
begin
  Result:=false;
  with Form1 do
    if ComponentCount > 0 then
      for i:=0 to ComponentCount-1 do
        if (Components[i] is TButton) then
          if (Components[i] as TButton).Caption = aCaption then
            begin
            (Components[i] as TButton).Destroy;
            exit;
            end;
end;
с данной функцие ты можешь вновь пробежатся по таблице извлекая caption и передавая его в эту функцию, и все кнопки созданные ранее, будут уничтожены)
Ответить с цитированием