Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.28;
Скачать: CL | DM;

Вниз

Поставить все 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.



Страницы: 1 вся ветка

Текущий архив: 2002.02.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.006 c
3-90456
Ura
2002-02-01 15:43
2002.02.28
Получение разницы во времени в IB


4-90712
Prof!
2002-01-02 08:49
2002.02.28
Help me!!!!!!! (DLL)


1-90612
Dinara
2002-02-12 23:02
2002.02.28
ListView


3-90491
RAVEN
2002-01-28 15:45
2002.02.28
Глюки ADO часть 2-ая


7-90686
NewMax
2001-11-23 13:07
2002.02.28
Генератор гармонических колебаний из звуковухи??