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

Вот этот код, удаляет все кнопки с формы, тебе осталось поставить проверку на caption кнопок, если у тебя в таблице есть такой caption, тогда уничтожаешь кнопку иначе нет, хотя можно все кнопки создавать, скажем на TPanel-и, и точно так же их там все уничтожать.
Код:
var
  i:integer;
begin
  with Form1 do
    begin
    i:=0;
    while (ComponentCount > 0) and (i < ComponentCount) do
      begin
      if (Components[i] is TButton) then
        begin
        (Components[i] as TButton).Destroy;
        Dec(i);
        end;
      Inc(i);
      end;
    end;
end;
Ответить с цитированием