[Barsdg]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Cardinal;
begin
for i:=0 to Form1.ComponentCount-1 do
  begin
    if Form1.Components[i].ClassType = TEdit then
      if TEdit(Form1.Components[i]).Text<>'' then
        TEdit(Form1.Components[i]).Enabled:=False;
  end;
end;

Мне нужно событие на TEdit Change в котором заполняется текст, а также проверяет заполнены ли другие TEdit на активной вкладке, и если ВСЕ они заполнены, то определенный TButton -> Enabled:=False.
А в общем по Вашему примеру результат такой же как и у предыдущих вариантов