Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

Поставить все DBEdit в Enabled:=False; 


ruslan_as   (2002-02-13 11:16) [0]

Как в программе отключить все DBEdit (Enabled:=False). А то у меня их тут собралось около 60.



Крутов Алексей   (2002-02-13 11:28) [1]

Процедура для выставления свойства Enabled у DBEdit на форме.
Вызов процедуры такой: SetEnabledFalseToDBControls(Form1),
где Form1 - переменная типа TForm.
Код возможно придется немного подкорректировать, но идея, я
думаю, понятна. Удачи !

procedure SetEnabledFalseToDBControls(vWinControl:TWinControl;vDataSource:TDataSource);
procedure SetEnabledFalseForGroupControls(wc:TWinControl);
var i:integer;
c:TControl;
begin
if wc.ControlCount > 0 then
for i:=0 to wc.ControlCount-1 do
begin
c:=wc.Controls[i];
if c is TDBEdit then (c as TDBEdit).Enabled:=false;
if c is TWinControl then
SetEnabledFalseForGroupControls(c as TWinControl);
end;
end;
begin
SetEnabledFalseForGroupControls(vWinControl);
end;



Крутов Алексей   (2002-02-13 11:30) [2]

Извиняюсь, переменную vDatasource передавать в процедуру не надо.

procedure SetEnabledFalseToDBControls(vWinControl:TWinControl);
procedure SetEnabledFalseForGroupControls(wc:TWinControl);
var i:integer;
c:TControl;
begin
if wc.ControlCount > 0 then
for i:=0 to wc.ControlCount-1 do
begin
c:=wc.Controls[i];
if c is TDBEdit then (c as TDBEdit).Enabled:=false;
if c is TWinControl then
SetEnabledFalseForGroupControls(c as TWinControl);
end;
end;
begin
SetEnabledFalseForGroupControls(vWinControl);
end;



Юрий Зотов (M)   (2002-02-13 11:36) [3]

Если все DBEdit"ы имеют общий DataSet, то все гораздо проще - DisableControls.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.016 c
7-90682           Ол11                  2001-11-22 12:24  2002.02.28  
Что предпочесть - плату PCI или LPT?


14-90634          ТеньЛуны              2002-01-12 14:54  2002.02.28  
Народ! А в последней аське актив лист убрали шоль????


6-90628           ShaH                  2001-12-04 08:58  2002.02.28  
Как узнать имя залогонившегося пользователя


3-90487           VLL                   2002-02-01 09:39  2002.02.28  
Как упаковать таблицу


3-90457           kserg@ukr.net         2002-02-01 10:08  2002.02.28  
Как переименовать таблицу SQL-командой?