[Мяфк]

Сообщение от v1s2222

Ну можно примитивно. Есть разные способы, этот первый пришел в голову. Сравнивать class...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i:=0 to ComponentCount-1 do
    if(Components[i].ClassType = TEdit) then
      TEdit(Components[i]).Visible := False;
end;

Мне не нужно изменять все Тедиты, так что ваш способ мне не подойдёт

Сообщение от Yurk@

ну как вариант можешь у нужных тебе компонентов (те которые ты будешь скрывать\показывать) поставить свойство Tag=1. В таком случае твоя функция поска будет иметь примерно такой вид:

Код:

for i := 1 to 10 do
  begin
  e1:=(FindComponent('Edit'+IntToStr(i)) as TEdit);
  e1.Visible:= not e1.Tag=1;
  end;

Спасибо, конечно это не очень удобно, но если до завтра никто другого не напишет, то попробую вашим способом

UPD:
Ох, поторопился я, оказывается мой вариант работает, только это из-за form2. он не работал, перенёс для теста на form2 это цикл, и всё отлично заработало. Теперь буду думать с form2. Если у кого-то есть соображения, то высказывайте.