[Barsdg]

Помогите пожалуйста.
Есть TPageControl, на нем динамически созданы вкладки (количество может быть разное), на вкладках панели, на них TEdit
Также, на форме динамически создаются TButton равное по количеству созданных вкладок.
Цель такова: При заполнении всех существующих TEdit'ов в активной вкладке соответствующий TButton становится Enabled:=False
Вот что сделал я:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure Tform2.EditChangeButton(Sender: TObject); var w,i,q: integer; begin w:=StrToInt(Edit3.text);// кол. компонентов на вкладке i:=StrToInt(Edit1.text);// № Вкладки TTabSheet for q:=1 to w do if TEdit(TPanel(Tab1.FindComponent('Pa nel_Tabl'+IntToStr(i+1))).FindCompo nent('Date'+IntToStr(q))).Text<>'' then TButton(Form2.FindComponent('List'+ IntToStr(i+1))).Enabled:=False Else TButton(Form2.FindComponent('List'+ IntToStr(i+1))).Enabled:=True; end;

Все работает, но не верно! т.е. поля не все заполнены а команда ...Enabled:=False выполняется.
Я предпологаю, что у меня не верно: for q:=1 to w do ...
Еще делал и так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure Tform2.EditChangeButton(Sender: TObject); var w,q,i : Integer; Date: TPanel; ok: Boolean; begin w:=StrToInt(Edit3.text); i:=StrToInt(Edit1.text); Date:=(sender as TEdit).parent as TPanel; ok:=true; for q:=0 to Date.controlcount-1 do begin if Date.controls[q] is TEdit and ((Date.controls[q] as TEdit).Text<>'') then begin ok:=false else ok:=true; end; TButton(Form2.FindComponent('List'+IntToStr(i+1))).Enabled:=ok; end;

но результат такой же как и в моем первом варианте, т.е. если заполнится один последний TEdit, а все остальные не заполнены то результат Enabled:=false;

А так: выполняется результат Enabled:=false при заполнении любого TEdit'a, опять же остальные не заполнены

Код:

1 2 3 4 5 6 7

... for q:=1 to Date.controlcount-1 do begin if Date.controls[q] is TEdit and ((Date.controls[q] as TEdit).Text<>'') then ok:=false; end; TButton(Form2.FindComponent('List'+IntToStr(i+1))).Enabled:=ok; end;

Помогите пожалуйста, может вообще нужно по другому делать?

[Janom]

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

[Assistant]

гы, сколько лет кодю, но вот так только недавно начал делать:

Код:

1	TEdit(Form1.Components[i]).Enabled := <b>not </b>(TEdit(Form1.Components[i]).Text <> '');

[Janom]

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

гы, сколько лет кодю, но вот так только недавно начал делать:

Код:

Спасибо! Писанины меньше!) Буду знать!)

[Barsdg]

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

Код:

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

[Janom]

Определенный это какой?

[Barsdg]

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

Определенный это какой?

Есть TPageControl, на нем динамически созданы вкладки (количество может быть разное), на вкладках панели, на них TEdit'ы
Также, на форме динамически создаются TButton равное по количеству созданных вкладок.

[Janom]

Что-то я тормазнул))

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.EditsChange(Sender: TObject); var   i:Cardinal;   aTSh:TWinControl;   aBtn:TButton;   bool:boolean; begin aTSh:=TEdit(Sender).Parent; bool:=false; for i:=0 to aTSh.ControlCount-1 do   begin     if aTSh.Controls[i].ClassType = TButton then       aBtn:=TButton(aTSh.Controls[i]);     if aTSh.Controls[i].ClassType = TEdit then       if TEdit(aTSh.Controls[i]).Text='' then bool:=true;     aBtn.Enabled:=bool;   end; end;

[Страдалецъ]

В общем вот так проводится тест активной вкладки по нужному вам критерию:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Edit4Change(Sender: TObject); Var i: Integer;     TS: TTabSheet;     TestResult: Boolean; begin  TS := TTabSheet(TEdit(Sender).Parent);  TestResult := True;  for i := 0 to TS.ControlCount - 1  do if TS.Controls[i].ClassType = TEdit     then if TEdit(TS.Controls[i]).Text = ''          then begin               TestResult := False;               Break;               end;  Button1.Enabled := not TestResult; end;

Единственное что вам надо доработать, это присвоить правильной кнопке свойство Enabled

[Страдалецъ]

Собственно мой код почти повторяет код Janom (забыл страничку обновить)

[Janom]

Сообщение от Страдалецъ

Собственно мой код почти повторяет код Janom (забыл страничку обновить)

Это да) но на TabSheet'ах у меня косякнуло) не искало кнопки... вот так правильнее будет:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var   i:Cardinal;   aTSh:TWinControl;   aBtn:TButton;   bool:boolean; begin aTSh:=TEdit(Sender).Parent; bool:=false; For i:=0 to aTSh.ControlCount-1 do   if aTSh.Controls[i].ClassType = TButton then       aBtn:=TButton(aTSh.Controls[i]); for i:=0 to aTSh.ControlCount-1 do   begin     if aTSh.Controls[i].ClassType = TEdit then       if TEdit(aTSh.Controls[i]).Text='' then bool:=true;     if aBtn<>nil then aBtn.Enabled:=bool;   end;

[Barsdg]

Наконец-то получилось, ВСЕМ огромное СПАСИБО!!!